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2. 



ABSTRACT 



Part 1 of the PDP-4/7 EAE Diagnostic verifies correct operation of all EAE operations, 
except multiplies and divides. Part 1 is written in three logical sections. Part 1 Section 1 is the EAE 
Set-Up Test and verifies that all set-up operations except LACS operate correctly. Part 1 Section 2 is 
the Shift Counter (LACS is verified) and Basic Shift Test and verification that the AC and MQ will each 
shift left 1 and shift right 1 all combinations of 18 bits. Part 1 Section 3 is the Random Data, Normalize, 
and Interrupt Test verifying that random data will shift left and right to 44g places, that normalize will 
"stop shift" on negative and positive data, and that the teleprinter flag will cause a break after an EAE 
operation. Hardware malfunctions detected by the program result in an error on the teleprinter. 



3. 



3.1 



REQUIREMENTS 

Storage 

CAL subroutine 

AC contents initial 

MQ contents initial 

Link initial 

SC of shift instructions 

AC contents as result 

MQ contents as result 

Link as result 

SC of LACS instruction 

Halt anc|/or Scope Loop subroutine 

Halt an4/or Repeat Sequence subroutine 

Set-Up Test 

Error Typeout subroutine 

Error texts and program constants 

SC and Basic Shift Test 

Random Data and Normalize 



00020-00027 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00040-00057 

00060-00077 

00100-01000 (approx.) 

01035-02100 (approx.) 
02200-04600 (approx.) 
05000-06400 (approx.) 



3.2 



3.3 



Subprograms anc^/or Subroutines 
PDP-4/7 Teletype Output Package 
(ASCII tape 2A of this test) 

Equipment 

Minimum configuration PDP-4/7 with EAE option installed, 
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4. 
4.1 

4.2 



4.3 
4.3.1 



USAGE 



Loading 



4.3.2 



Normal binary loading procedures are to be used. t\ I rA Lt^9£H, 

Calling Sequence 

Part 1 Section 1 must run in its entirety and at all margins before running Part 1 Section 2. 

Part 1 Section 2 must run in its entirety and at all margins before running Part 1 Section 3. 

Switch Settings 

AC switches = or down. With all AC Switches down the program results in the following: 

(1) All hardware malfunctions detected by the program result in an error typeout 
on the teleprinter. 

(2) At the completion of an error typeout the processor halts. 

(3) The program repeats whichever section of the test it was started in and 
sequences from each sub-test of that section to the next without halting. 

AC switches = 1 or up 



SW# 



Operation 



Description 



Delete error typeouts 



Halt after EAE operation 
Processor halts at address 0046 
(AC) = S.A. to set up last operation 

Repeat EAE operation 
(Scope Loop) 



Halt after EAE sequence 
Processor halts at address 0066 
(AC) = S.A. of last sequence 



The program will not type out error 
messages and will not error halt (see 
also SWO and 7 , Ring Bell on Error). 

The processor halts after each EAE 
operation is initiated and its results'are 
verified. (Note: Press CONTINUE to 
proceed.) 

The program repeats the last EAE oper- 
ation. If SW2 is set during an error 
typeout or halt, the program repeats the 
operation that caused the error (Note: SWl 
is tested before SW2.) 

The processor halts after each sequence of 
testing an EAE operation; i.e., after test- 
ing that the MQ will complement all 
patterns, the processor halts. 
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SW# 



Operation 



Description 



Repeat EAE sequence 



Cycle ail sections 




Type end of section 




Delete error hair 
Ring bell on error 



The program repeats the last sequence of 
testing an EAE operation; i.e., the pro- 
gram repeats the LEFT SHIFT ALL COM- 
BINATIONS and does not proceed to 
RIGHT SHIFT ALL COMBINATIONS. 
(Note: The program tests SW3 before SW4 ) 
In the Random Data Left and Random Data 
Right routines SW4 causes the program to 
repeatedly shift a single pair of random 
numbers to 44q places . 

At the completion of 1 pass through the 
S«l'-Up Test the program proceeds to the 
SC and Basic Shift Test. At the completion 
of 1 pass through the SC and Basic Shift 
Test the program proceeds to the Random 
Data and Normalize Test. At the com- 
pletion of 1 pass through Random Data and 
Normalize Test the program repeats the 
Set-Up Test. 

At completion of 1 pass through each of the 
sections a character is typed on the tele- 
printer as follows: 

Set-Up Test / 

SC and Basic Shift Test / 

Random Data and Normalize * 

The processor will not halt after error 
typeouts . 

SWO and SW7 both up. Error typeouts and 
halts are deleted and the "bell" on the 
teleprinter is rung (to be used to determine 
marginal voltage limits, eliminates waiting 
for long typeouts) . 



4.4 Start Up and/or Entry 

4.4.1 Start Up, Set-Up Test 

Set AC switches = 000000 
Set ADDRESS = 0100 
Press START 
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Processor halts at 0101 with MQ = 177777 

Set ADDRESS = 0102 

Press START 

Program reads C(MQ) into the AC and tests for 0, then proceeds to rest of test. 

NOTE: This section of Part 1 must run at all margins before running Section 2. 

4.4.2 Start Up, SC and Basic Shift Test 
Set AC switches = 000000 

Set ADDRESS = 2200 

Press START 

Processor halts at 2204 AC = 200000 

SC = 77 

Set ADDRESS = 2205 

Press START 

Program reads C(SC) into the AC and tests for 0, then proceeds to rest of test. 

NOTE: This section must run at all margins before running Section 3. 

4.4.3 Start Up Random Data and Normalize Test 
Set AC switches = 000000 

Set ADDRESS = 5000 
Press START 

NOTE: This section must run at all margins before running EAE Part 2. 

4.5 Errors in Usage 

Hardware malfunctions detected by the program will result in an error typeout on the tele- 
printer and a processor halt (see section 4.3.2, SWO and SW7). 

4.5.1 Error Typeout Format 

All error typeouts are in standard formats and include the following information: 

(1) An address that may be used to determine which test the program was in at 
the orogram was in at the time the error was detected 

(2) A mnemonic describing the operation being tested 
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(3) The Inilifil condition of registers pertinent to the failure 

(4) The expected results of the operation being tested if they are not easily 
determined from the initial conditions and operation 

(5) The resultant register contents that are pertinent to the failure 

A common typeout routine called ERROR generates all error typeouts. The first line of 
every error typeout is the contents of memory register ERROR or the address + 1 of the JMS ERROR 
instruction. 

The second line of every typeout is the mnemonic describing the operation being tested (see 
paragraph 4.5.2 for definitions of mnemonics used) . 

The third line of a typeout may be another address. In this case the second address typed 
should be used to determine which test failed. (Operations such as LRS or LLSS each have common error 
routines.) 

The next information typed is a header to format *-he typeouts of the contents of pertinent 
registers. One of five headers may be used for any typeout. 

The abbreviations used by the headers are as follows: 

Abbr . Meaning 

L The information under this column is the contents of the link. 

C(AC) The information under this column is the contents of the accumulator. 

C(MQ) The information under this column is the contents of the MQ register. 

SC The information under this column is the contents of the shift counter 

or the SC portion of shift instructions. 

START The information in this line is the initial condition of pertinent 

registers . 



4.5.2 



The five headers are as 


foil 


lows: 




C(AC) 






START 










C(AC) 




C(MQ) 


START 










L 




C(AC) 


START 










SC 




C(AC) 


START 








L 


C(AC) 




C(MQ) 


Error Typeout Mnemonics 





C(MQ) 
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Mnemonic 

EAENOP 

EAECLA 

CLQ 

CMQ 

ORMQAC 

ACOTOL 
ORACMQ 

LACQ 

LLS 

LLSS 

LRS 

LRSS 

LMQ 

ABS 

CLR A SC 

LACS 

NORM 

NORMS 

ALS 

PAT 

COR 

INCO 

Error Typeout Examples 



Description 

EAE instruction with no other operation specified. 

EAE . Clear the accumulator. 

Clear the MQ register. 

Complement the MQ register. 

Inclusive OR the MQ to the AC and place the results 
in the AC. 

Set AC bit into the link. 

Inclusive OR the AC to the MQ and place the results 
in the MQ (and in test ACORMQ clear the AC). 

Clear the AC, then MQ 1 's to the AC. 

Long left shift. 

Long left shift signed. 

Long right shift. 

Long right shift signed. 

Clear the MQ, then AC 1 's to the MQ. 

Complement the AC if it is negative. 

Clear the step counter (START). 

Clear the AC and step counter; Ts to the AC. 

Normalize the AC and MQ. 

Normalize signed. 

Accumulator left shift. 

Pattern being tested . 

Results expected from the operation being tested. 

Erroneous results of the operation. 



The following are examples of error typeouts. The addresses indicated by these typeouts 
should not necessarily be taken as true representations: 
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Example 1: 


Complement 
Example 


the 


MQ Failure 


000226 








CMQ 










c(Ac; 




C(MQ) 


START 


000000 




000000 


CMQ 


000000 




767777 



Explanation 

JMS ERROR is at 00225 

Operation is complement the MQ 

Header 

Initial conditions 

Contents of the AC and MQ after 
CMQ was executed . 



Note: Examine the MQ indicators to be sure they agree with the typeout. If 
the MQ as indicated does not agree with a typeout, an error was present in MQ 
1 's to the AC. This is true of all error typeouts that include the MQ as an end 
condition. 



Example 2: 


EAE NOP AC Failure 




Example 


000135 




EAENOP 






C(AC) 


START 


777777 


EAENOP 


000000 


Example 3: 


AC Sign to Link Failure 




Example 


000455 




ACOTOL 






L C(AC) C(MQ) 


START 


1 400000 


ACOTOL 


400000 



Explanation 

JMS ERROR is at 001 34 

Operation is NOP 640000 

Header 

Initial condition of the AC 

Contents of the AC after the NOP 
was executed 



Explanation 

JMS ERROR is at 00454 

Operation is AC bit to link 

Header 

Initial conditions MQ not pertinent 

State of the LI'^IK and AC after the 
operation was executed 
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Example 4: AC to MQ to AC Failures 
Exanyle 



000526 








ORACMQ 










C(AC) 


C(AC) 




START 


000000 


000000 




ORACMQ 


000000 


000000 


COR 


LACQ 


000000 


040000 


INCO 


000526 








ORACMQ 










C(AC) 


C(MQ) 




START 


005000 


000000 




ORACMQ 


000000 


005000 


COR 


LACQ 


000000 


004000 


INCO 



Explanation 

JMS ERROR is at 00525 

Operation is AC 1 's to MQ 

Header 

Initial register states 

Expected results 

The contents of the AC after ORACMQ 
and the contents of the MQ as indicated 
by a LACQ instruction 



Note: Again, the contents of the MQ as indicated by the*MQ indicators may not 
necessarily agree with the MQ contents as typed. 



Example 5: 


Step Counter Error 




Example 


002530 




SC ERROR 




002262 






SC C(AC) 


START 


00 200000 


NORM 


01 


SETSC 


76 


SC + 1 


71 COR 


LACS 


67 INCO 



200000 



Explanation 

JMS ERROR is at 02527 

One of the SC tests failed 

JMS SCERR is at 02261 

Header 

Initial register status 

Instruction used to set the SC 

NORM 01 should set the SC to 76 

SC should increment to T7 

Contents of the SC as read to the AC 
by a LACS instruction and the contents 
of the AC after the NORM instruction 
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Example 6: ALS (Accumulator Left Shift) 
Example 



003123 








ALS 


05 






003076 








L 


C(AC) 


C(MQ) 




1 


/////6 


PAT 




1 


777777 


RESULT 




LACS 


00 






Example 7: 


Long Left Shift 






ExampI 


le 




003673 








LLS 


01 






003507 








L 


C(AC) 


C(MQ) 




1 


777777 


///737 


PAT 


1 


777777 


//n77 


RESULT 


LACS 


00 







Failure 

Explanation 

JMS ERROR is at 03122 
ALS instruction 5 places 
JMS ALSERR is at 03075 

Header 

Pattern being tested 

Results in AC after the shift 

Shift counter read back to the AC 

Explanation 

JMS ERROR is at 03672 

Long left shift 1 place 

JMS LLSERR is at 03506 

Header 

Initial register states 

Registers at completion of shift 



LACS 


00 






SC as read back to the AC 


Example 8: 


Long Left Shift Signed 






ExampI 


e 




Explanation 


003716 








JMS ERROR is at 03715 


LLSS 


03 






Long left shift signed 3 places 


005075 








JMS LRSSER is at 05074 


L 


C(AC) 


C(MQ) 




Header 





456701 


234567 


PAT 


Pattern being tested 




567012 


345677 


COR 


Expected results 


1 


567012 


347677 


INCO 


L, AC, and MQ after the shift 


LACS 


00 






SC as read back to the AC 
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Example 9: Long Right Shift 
Example 



004600 








LRS 


01 






004537 








L 


C(AC) 


C(MQ) 




1 


402101 


402101 


PAT 




601200 


601200 


COR 


1 


601200 


601000 


INCO 



LACS 



00 



Example 10: Random Data Sequenced 

Example 

005501 

RANDOM DATA SEQUENCED 02 

005301 

L C(AC) C(MQ) 

045670 123450 START 

045630 123450 RESULT 

LACS 00 



Explanation 

JMS ERROR is at 004577 
Long right shift 1 place 
JMS LRSER 1 is at 004536 

Header 

Pattern being tested 

Expected results 

AC and MQ after completion of the shift 

SC as read to the AC after completion of 
the shift 

Explanation 

JMS ERROR is at 005500 

Random sequence 2 

JMS SEQCOM is at 005300 

Header 

Pattern sequenced 

L, AC, and MQ after shift sequence 

SC after shift sequence 



Note: Sequence 2 is: LLSS 03 

LRS 06 

LLSS 06 

LRS 03 

The AC and MQ results should equal the AC and MQ at START. This is true of all of the 
Random Data Sequences. 
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Example 11 


: Norma 1 ize 








Example 




Explanation 


006217 






JMS ERROR 


NORM 


01 




Normalize SC = 1 


005766 






JMS NORMER Is at 05765 


L 


C(AC) C(MQ) 




Header 





200000 000000 


PAT 


Pattern being tested 





400000 000000 


RESULT 


L. AC, and MQ after NORM 


LACS 


71 COR 




SC expected after the NORM 


LACS 


00 RESULT 




SC read back to the AC 


Example 12 


:: Interrupt Failure 








Example 




Explanation 


006310 






JMS ERROR is at 06307 


NO PROGRAM INTERRUPT 




Error is no interrupt 


EAE NOP 






Instruction tested 


006305 






Address of NOP instruction 



4.6 Recovery From Such Errors 

4.6.1 General 

At the completion of an error typeout the processor halts. One of the following operations 
may be necessary if more information about the failure is required to repair the malfunction: 

1 . Repeat the exact operation that detected the failure (possibly for a scope loop). 

2. Continue normally in the test to generate more information about the failure. 

3. Repeat the sequence of operations or data patterns that detected the error. 

AC switch control is built into the program to allow for any of these operations. Assuming 
the processor has halted after an error typeout, the operations may be accomplished as follows: 

1 . Repeat same operation 

Set AC switch 2 up or to a 1 
Press CONTINUE 

Note that AC SWO allows deletion of error typeouts for a scope loop. 
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2. Continue nonnally 
Press CONTINUE 

3. Repeat Sequence 

Set AC switch 4 up or to a 1 
Press CONTINUE 

In the Random Data Tests, switch 4 a 1 causes the same pair of random numbers to be repeat- 
edly shifted to 44g places. This is useful in determining which shift the random data first fails. 

4.6.2 To Determine Area in Program that Failed 

4.6.2.1 From Error Typeouts 

Each error typeout includes an address typeout that may be used to determine the exact test 
routine that detected the error. Some of the typeouts include an address that points at a common error 
routine for that type of error and a second address that points at the test routine. (Section 4.5.3, example 
3 has only one octal typeout before the header and example 5 has two. The second octal typeout in ex- 
ample 5 (002262) determines which SC test failed.) Determine which address to use, go to the numerically 
sorted program labels (section 10.4.1) and find the program labels with addresses lower and higher than the 
one typed. The last program label with an address lower than the one typed is in the test routine that 
failed. 

4.6.2.2 From CAL Routine 

This test program includes a halt at address 00026 that indicates a CAL instruction was 
executed. Pressing CONTINUE at this point causes the processor to CAL at address 00027. At the time 
of the first HALT the contents of the AC indicate the contents of address 00020 after the CAL or the ad- 
dress + 1 of the CAL . The approximate area of the test program that was being executed may be deter- 
mined by examining the following memory addresses. 

Address Contents Indicate 

00040 Address +1 or +2 of last JMS SWITCH 

00057 Starting address of last SCOPE LOOP 

00060 Address +1 or +2 of last JMS SWITCH 

00077 Starting address of last TEST SEQUENCE 

By comparing the contents of these memory locationswith the numerically sorted symbol list, 
the test routine (at the time of a CAL, hang up, or program wipeout) that was being executed may be 
determined. 

5 . RESTRICTIONS (Not Applicable) 

6. DESCRIPTION 
6.1 Discussion 
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6.1.1 



General 



The PDP-4/7 EAE Diagnostic Part 1 verifies correct operation of all EAE operations except 
multiplies and divides. Part 1 itself is written in three logical sections as follows: 

Section 1: Set-Up Test 

Verifies correct operation of all EAE set-up dperations except LACS. 

Section 2: SC and Basic Shift Test 

Verifies correct operation of the SC and LACS instruction and verifies that the AC and MQ 
will shift left and right 1 place all combinations of 18 bits. 

Section 3: Random Data and Normalize Test 

This section of Part 1 verifies that the AC and MQ will shift random data left and right to 
448 places, that the NORM and NORMS instructions operate correctly, and that the processor interrupts 
after an EAE operation . 

The above sections are to be used incrementally. That is. Section 1 must operate at all 
margins before Section 2 is run. Section 2 must run at all margins before Section 3 is run. 

6.1 .2 Test Descriptions 

6.1.2.1 Set-Up Test 

The Set-Up Test incrementally verifies correct operation of all of the EAE set-up instructions 
except LACS . 



The sequence of testing is as follows: 
Test Mnemonic 



SETUP 

EAERMQ 

NOPAC 

EAECAC 

EAECLQ 

MQITAC 

NOPAC I 

NOPMQ 

NOPMQI 

NOPLNK 



Operation (s) Tested 



Does CMQ set MQ = O's to 1 's 
Do all MQ indicators light (visual) 

Does START clear the MQ 
Does MQ = O's to AC = O's 

Does EAE NOP not clear the AC 

Do EAE and bit 8 clear the AC 

Does bit 5 clear the MQ 

Does bit 16 with MQ = 1 's set AC to 1 's 

Does EAE NOP with MQ = 1 's alter the AC 

Does EAE NOP with MQ = l 's alter the MQ 

Does EAE NOP with AC = I's alter the MQ 

Does EAE NOP alter the link 
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6.1.2.2 



Test Mnemonic 

QONEAC 
EAESLK 
NOPLKI 
ACORMQ 

ACLMQ 
COMPMQ 
ACONEQ 
EAEABS 
SC and Basic Shift Test 



Operation(s) Tested 

Does MQ = 1 's inclusive OR to AC = 1 *!» 

Do EAE and bit 4 get AC sign to link 

Does EAE NOP alter the MQ with link = 1 

Does AC inclusive OR all patterns to 
MQ = O's and MQ to AC all patterns 

Does the LMQ instruction operate as specified 

Will the MQ complement all patterns 

Will the AC = I's inclusive OR to MQ = 1 's 

Does the ABS instruction operate as specified 



The SC and Basic Shift Test incrementally verifies correct operation of the SC (including 
the LACS instruction) and the left and right shifts. The SC Test assumes that a NORM instruction with 
the AC = 200000 generates a stop shift. 



The sequence of testing is as follows: 
Test Mnemonic 



Operation(s) Tested 



SCTSTI 



NOPSC 
SCT076 

SCT074 
SCTO70 
SCTO60 
SCTO40 
SCTOOO 
SCTOOl 
SCTO03 
SCTO07 



(1) Does NORM "stop shift" with AC = 
200000 (visual) SC is set to 77 

(2) Does START clear the SC 

(3) Does LACS get SC = O's to the AC 
Does EAE NOP alter the SC = O's 

(1) Will the SC set to 76 and + 1 to 77 

(2) Will LACS read SC = 77 to the AC 

Will the SC set to 74 and + 1 to 75 

Will the SC set to 70 and + 1 to 71 

Will the SC set to 60 and + 1 to 61 

Will the SC set to 40 and + 1 to 41 

Will the SC set to 00 and + 1 to 01 

Will the SC set to 01 and + 1 to 02 

Will the SC set to 03 and + 1 to 04 

Will the SC set to 07 and + 1 to 10 
(Is "high count" generated?) 
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Test Mnemonic 

SCT017 

SCT037 

SCT077 

NOPSCl 

ALSZER 

ALSO! 

ALSLNK 

LNKALS 

ALSMQT 

HSALS 

LISTS 1 
LLSTS2 
LLSACT 

LISTS 3 

LLSTS4 

LLSTS5 
LLSTS6 

LRSTSl 
LRSTS2 
LRSTS3 
LRSTS4 
LRSTS5 

LRSTS6 

LRSTS7 

LRSTS8 



Operation(s) Tested 

Will the SC set to 17 and + 1 to 20 

Will the SC set to 37 and + 1 to 40 

Will the SC set to 71 and + 1 to 00 

Does EAE NOP alter SC = 77 

Does ALS with SC = 00 "stop shift" 

Does ALS 1 place shift AC = O's 

Does link get to AC17 on an ALS 1 place 

Does bit of the AC not go to the link 
on an ALS 1 place 

Does ALS alter the MQ 
Does MQO not go to AC 1 7 

Will ALS shift the AC 1 to 18 places 
bit and no-bit 

Will the AC/MQ shift O's place left 

Does link go to MQ17 on an LLS 

(1) Does link not go to AC17 on an LLS 

(2) Does MQO go to AC 17 on an LLS 

Does each bit of the MQ = 1 shift left 
1 place (1 bit at a time = 1) 

Does each bit of the MQ = shift left 
1 place (1 bit at a time = 0) 

Will MQ/AC shift a 1 bit 1 to 443 places left 

Will MQ/AC shift a bit 1 to 443 places left 

Will AC/MQ shift right 1 all O's 

Does link go to ACO on an LRS 

Does AC 1 7 go to MQO on an LRS 

Does AC17 not go to link on an LRS 

Will AC/MQ shift a 1 bit from each position 
right 1 place (1 bit at a time) 

Will AC/MQ shift a bit right 1 place (1 bit 
at a time) 

Will AC/MQ shift 1 bit (ACO) right 1 to 
44^ places 

Will AC/MQ shift a bit (ACO) right 1 to 
443 places 
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Test Mnemonic 
LLSSEQ 

LRSSEQ 



Operation(s) Tested 

Will the AC and MQ each shift left 1 place 
every combination of 18 bits 



Will the AC and MQ each shift right 
every combination of 18 bits 



place 



6.1.2.3 



Random Data and Normalize Test 



The Random Data and Normalize Test verifies that the AC/MQ will shift left and right 
random data to 44g places, that the NORM and NORMS instructions operate as specified, and that the 
processor interrupts after an EAE instruction . 



The sequence of testing is as follows; 



Test Mnemonic 



RANSHF 



RANRIT 



RANSEQ 



RANSQO 



RANSQl 



RANSQ2 



Operation(s) Tested 



Generates 4096 pairs of random numbers, 1 for the 
AC and 1 for the MQ. Each pair of random numbers 
is shifted left signed (LLSS) to 44q places, and the 
results are tested against a table generated by 44 
left shift 1 place. 

Generates 4096 pairs of random numbers 1 for the 
AC and 1 for the MQ . Each pair of random num- 
bers is shifted right (LRS) to 44g places, and the 
results are tested against a table generated by 44 
shift right 1 place. 

Generates 4096 pairs of random numbers 1 for the 
AC and 1 for the MQ. Each pair of random num- 
bers is used by RANSQO to RANSQ8. After each 
sequence the AC and MQ should equal their start- 
ing patterns. 

Bit of AC = bit 1 7 of MQ . Random numbers are 
sequenced 1 left signed, 2 right, 2 left signed, 
1 right. 

Bit and 1 of AC = bit 16 and 17of MQ. 
Sequence is: 

2 right signed 

4 left signed 

4 right 

2 left signed 

Bits to 2 of AC = bits 15 to 1 7 of MQ . 
Sequence is: 

3 left signed 
6 right 

6 left signed 
3 right 
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Test Mnemonic 



Operation(s) Tested 



RANSQ3 



RANSQ4 



RANSQ5 



RANSQ6 



RANSQ7 



RANSQ8 



NRMLZE 
NRMLZl 
NRMLZ2 



Bits to 3 of AC = bits 14 to 1 7 of MQ . 
Sequence is: 

4 rigfit signed 

8 left signed 

8 right 

4 left signed 

Bits to 4 of AC = bits 1 3 to 1 7 of MQ . 
Sequence is: 

Left 5 signed 

Right 10 

Left 1 signed 

Right 5 

Bits to 5 of AC = bits 12 to 1 7 of MQ . 
Sequence is: 

Right 6 signed 

Left 12 signed 

Right 12 

Left 6 signed 

Bits to 6 of AC = bits 11 to 1 7 of MQ . 
Sequence is: 

Left 7 signed 

Right 14 

Left 14 signed 

Right 7 

Bits to 7 of AC = bits 10 to 17 of MQ. 
Sequence is: 

Right 8 signed 

Left 16 signed 

Right 16 

Left 8 signed 

Bits to 8 of AC = bits 9 to 1 7 of MQ . 
Sequence is: 

Left 9 signed 

Right 18 

Left 18 signed 

Right 9 

Does NORMS get AC sign = to link 

Does NORMS get AC sign = 1 to link 

Will NORM "stop shift" with ACO^^ACl, 
ACO = 1 , ACl = 0, or ACO = 0, ACl = 



Digital-7-92-M 
Page 18 



7. 
8. 
9. 

10. 
10.1 
10.2 
10.3 



Test Mnemonic 
NRMLp 

NRMLZ4 

NRMLZ5 
INTEST 



Operation(s) Tested 

Does NORM NOT "stop shift" with AGO = ACl , 
ACl = 0, or AGO = 0, AGl = or until SG = 11 

Will NORMS normalize the alternate pattern of 

1 and bits for each bit position of the AG and MQ . 

Will complement bit patterns normalize 

(1) Will the teleprinter flag cause an interrupt after 
an EAE NOP 

(2) Will the teleprinter flag cause an interrupt after 
an LLS 43g places 

(3) Does the interrupt not occur until the LLS is complete 



METHODS (Not Applicable) 
FORMAT (Not Applicable) 
EXEGUTION TIME (Not Applicable) 

PROGRAM 

Gore Map (I'^Jone) 

Dimension List (None) 

Macro, Parameter, and Variable Lists (None) 
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10.4 


Program Listing 






10.4.1 


Symbol Table 






ACCOMK 


4700 


eaermq 


102 


ACCNO 


34 


EAESlK 


436 


ACLMQ 


607 


ENDSHF 


3267 


ACLMOE 


639 


ERCONT 


1070 


ACONCQ 


722 


ERLOOP 


1034 


ACORMQ 


944 


ERROR 


1043 


ACSTRT 


30 


EXT 


52000 


ALSERR 


3175 


FIVE6 


1225 


ALSLNK 


2663 


FOURl 


1212 


ALSMOT 


2760 


F0UR3 


1223 


ALSZER 


2604 


F0UR4 


1222 


AlS0t 


2626 


F0UR9 


1221 


BIT0 


1227 


HORl 


1274 


BIT! 


1230 


H0R2 


1305 


BIT10 


1241 


H0R3 


1321 


BITII 


1242 


H0R4 


1336 


BIT12 


1243 


H0R5 


1355 


BIT13 


1244 


HSALS 


3114 


81X14 


1245 


HSALSE 


3134 


8IT15 


1246 


HSALSL 


3127 


BIT16 


1247 


INDAT 


1410 


BIT17 


1250 


INTEST 


6272 


BIT2 


1231 


INTSI 


6314 


BIT3 


1232 


INTS2 


6346 


BIT4 


1233 


INTS2E 


6403 


BITS 


1234 


INTS2L 


6330 


BIT6 


1235 


KAU7 


1273 


BIT? 


1236 


KALi>01 


2732 


BIT8 


1237 


KLLSS 


5537 


BIT9 


1240 


KULSSI 


3767 


CHARK 


1170 


KLRS 


5536 


COMBIT 


1226 


KIB 


1206 


COMMA 


3307 


LKEND 


36 


COMPMQ 


666 


LKSTRT 


32 


CRCODE 


1373 


LLSACT 


3406 


CRLF 


1145 


LLSERR 


3745 


OCPCNT 


6436 


LLSSEQ 


4527 


OCPDIG 


6435 


LLSSER 


3770 


DCPNUM 


6437 


LLSSEX 


3617 


DCPTAB 


1635 


LLSSLl 


3606 


EAEABS 


754 


LLSSL2 


3671 


EAECAC 


146 


LLSSX2 


3703 


EAECLQ 


164 


LLSTSl 


3310 



I.LSTS2 

LLSTS3 

LLSTS4 

LLSTS5 

LLSTS6 

UNKALS 

LRANEX 

LRANLP 

LRSERR 

IRSERl 

LRSSEQ 

LRSTSl 

LRSTS2 

LRSTS3 

LRSTS4 

LRSTS5 

LRSTS6 

LRSTS7 

LRSTS8 

LRSTSl 

LRST6L 

LRST7E 

LRST7L 

LRST8E 

LRSTSL 

MIN5 

MIN6 

MQCOMK 

MQENO 

MQSTRT 

MQITAC 

MTATAB 

NBIT0 

NBITl 

NBIT10 

NBITll 

NBIT12 

NBIT13 

NBIT14 

NBIT15 

NBIT16 

NBIT17 

NBrT2 



3342 

3465 

3926 

3575 

3696 

2721 

9097 

9046 

4630 

4692 

4566 

4016 

4090 

4122 

4175 

4236 

4313 

4373 

4490 

4254 

4333 

4417 

4405 

4476 

4463 

1166 

1167 

4701 

35 

31 

213 

2061 

1251 

1292 

1263 

1264 

1265 

1266 

1267 

1270 

1271 

1272 

1253 
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NBIT3 


1254 


NBIT4 


1255 


NBIT5 


1256 


NBIT6 


1257 


NBIT7 


1260 


NBIie 


1261 


NBIT9 


1262 


NCT 


2033 


NDSETU 


1021 


NIOT 


2043 


NOPAC 


125 


NOPACl 


241 


NOPLKl 


502 


NOPLNK 


343 


NOPMO 


266 


NOPMQl 


314 


NOPSC 


2225 


NOPSCl 


2555 


NORMER 


6216 


NORMSE 


6244 


NRMLiiE 


5652 


NRML21 


5704 


NRMLH2 


5737 


NRML23 


6000 


NRML24 


6054 


NRML25 


6143 


NSNERR 


3077 


NXTSEQ 


5417 


OCL 


2046 


DCS 


2047 


ocu 


2045 


ONESEV 


1215 


OTY 


2007 


PASSK 


5535 


QONEAC 


410 


RANGEN 


5522 


RANNO 


5533 


RANRIT 


5112 


RANSEQ 


5214 


RANSHF 


5002 


RANSO0 


5237 


RANSQl 


5253 


RANSQ2 


5267 


RANS03 


5303 


RANS04 


5317 


RANS05 


5333 


RANS06 


5347 


RANS07 


5363 


RANSQ8 


5377 


RESULT 


3245 


RLSTAY 


5110 


RL6 


2026 


RRANEX 


5161 



RRANLP 


5151 


RRSTAy 


5212 


SALSRP 


3244 


SAVERR 


1205 


SCCOMK 


4702 


SCEND 


37 


SCERR 


2520 


SCSTRT 


33 


SCTO00 


2355 


SCTO01 


2373 


SCTO03 


2411 


SCTO07 


2427 


SCT017 


2445 


SCT037 


2463 


SCTO40 


2337 


SCTO60 


2321 


SCTO70 


2303 


SCT074 


2265 


SCT076 


2246 


SCT077 


2501 


SCTSTl 


2200 


SEOCOM 


5452 


SETLLS 


5025 


SETLRS 


5131 


SETUP 


100 


SEVEN 


1200 


SEVFIV 


1217 


SEVNTY 


1210 


SEVN4 


1211 


SEVONE 


1216 


SEVSEV 


1203 


SEVSIX 


1204 


SGNSHF 


3042 


SHFBUF 


5540 


SIMALS 


3216 


SIXONE 


1214 


SIXTY 


1207 


SPACE3 


1350 


SPACE4 


1352 


SVCHAR 


1172 


SVMASK 


5450 


SVSIGN 


5446 


SWITCH 


40 


SWTCHS 


60 


TAB 


101730 


TBC 


6433 


TCALL 


1122 


TCR 


101703 


TCRRRR 


1715 


TCRSSS 


1712 


TCTWO 


1131 


TDIGIT 


101755 


TDIGTl 


1771 



TEM 

TEMY 

TEMYl 

THREE 

THREE4 

THREE7 

TIN 

TSP 

TSR 

TSRl 

TTAB 

TWORD 

TW0R02 

TWO40 

TWO60 

TYABS 

TYALS 

TYALSQ 

TYCLA 

FYCLQ 

FYCMO 

TYCOR 

TYCSC 

TYDELE 

TYINCO 

TYINTE 

TYLACQ 

TYLACS 

TYLLS 

TYLLSS 

TYLMO 

TYLRS 

TYLRSS 

TYNOP 

TYNORM 

TYNRMS 

TYPATR 

TYPECN 

TYPLSl 

TYRDSQ 

TYRES 

TYRMO 

TYSCER 

TYSIMR 

TYSLK 

TYSMO 

TYSSC 

TYSTRT 

TYT 

TYl 

TYIA 

TYIBBB 

TY2 

TY3 



6432 

6434 

6431 

1220 

1224 

1213 

101746 

101720 

101773 

2003 

10 

101627 

101572 

1201 

1202 

1525 

1566 

1561 

1426 

1432 

1436 

1367 

1531 

1151 

1371 

1400 

1456 

1535 

1462 

1466 

1521 

1472 

1502 

1422 

1545 

1374 

1365 

1074 

1555 

1506 

1516 

1442 

1541 

1476 

1446 

1452 

1551 

1420 

101730 

101643 

1647 

2050 

1671 

101673 



riAB 


10 


ACSTRT 


30 


MQ5TRT 


31 


LKSTRT 


32 


SCSTRT 


33 


ACCND 


34 


MQCND 


35 


LKEND 


36 


SCEND 


37 


SWITCH 


40 


SWTCHS 


60 


SETUP 


100 


eaermq 


102 


nopac 


125 


EAECAC 


146 


EAECLQ 


164 


MQITAC 


213 


NOPACl 


241 


NOPMO 


266 


NOPMOl 


314 


NOPLNK 


343 


QONEAC 


410 


EaESLK 


436 


NOPLKl 


502 


ACQRMQ 


544 


ACLMQ 


607 


ACLMQE 


635 


COMPMQ 


666 


ACONEQ 


722 


EAEABS 


754 


NDSETU 


1021 


ERROR 


1043 


ERLOOP 


1054 


ERCONT 


1070 


TYPECN 


1074 


TCALL 


1122 


TCTWO 


1131 


CRLF 


1145 


TYOELE 


1151 


MIN5 


1166 


MIN6 


1167 


CHARK 


1170 


SVCHAR 


1172 


SEVEN 


1200 


TWO40 


1201 


TWO60 


1202 


SEVSEV 


1203 


SEVSIX 


1204 


SaVERR 


1205 


K18 


1206 


SIXTY 


1207 


SEVNTY 


1210 


SEVN4 


1211 


FOURl 


1212 


THREE? 


1213 


SIXONE 


1214 



ONESEV 


1215 


SEVONE 


1216 


SEVFIV 


1217 


THREE 


1220 


F0UR5 


1221 


Four 4 


1222 


Fours 


1223 


THREE4 


1224 


FIVE6 


1225 


COMBIT 


1226 


BIT0 


1227 


BITI 


1230 


BrT2 


1231 


BIT3 


1232 


BIT4 


1233 


BIT5 


1234 


BIT6 


1235 


BIT7 


1236 


BIT8 


1237 


BIT9 


1240 


BIT10 


1241 


BITII 


1242 


BIT12 


1243 


BIT13 


1244 


BIT14 


1245 


BIT15 


1246 


BIT16 


1247 


BIT17 


1250 


NBIT0 


1251 


NBITl 


1252 


NBIT2 


1253 


NBIT3 


1254 


NBIT4 


1255 


NBIT5 


1256 


NBIT6 


1257 


NBIT7 


1260 


NBIT8 


1261 


NBIT9 


1262 


NBIT10 


1263 


NBITll 


1264 


NBIT12 


1265 


NBIT13 


1266 


NBIT14 


1267 


NBIT15 


1270 


NBIT16 


1271 


NBIT17 


1272 


KALL7 


1273 


HDRl 


1274 


HDR2 


1305 


HDR3 


1321 


H0R4 


1336 


SPACE3 


1350 


SPACE4 


1352 


HDR5 


1355 


typatr 


1365 


TYCOR 


1367 
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TYINCO 


1371 


CROODE 


1373 


TYNRMS 


1374 


TYINTE 


1400 


INDAT 


1410 


TYSTRT 


1420 


TYNOP 


1422 


TYCLA 


1426 


TYCLQ 


1432 


TYCMQ 


1436 


TYRMQ 


1442 


TYSLK 


1446 


TYSMO 


1452 


TYLACQ 


1456 


TYLLS 


1462 


TYLLSS 


1466 


TYLRS 


1472 


TYSIMR 


1476 


TYLRSS 


1502 


TYRDSQ 


1506 


TYRES 


1516 


TYLMO 


1521 


TVABS 


1525 


TYCSC 


1531 


TYLACS 


1555 


TYSCER 


1541 


TYNORM 


1545 


TYSSC 


1551 


TYPLSl 


1555 


TYALSQ 


1561 


TYAUS 


1566 


DCPTAB 


1635 


TYIA 


1647 


TY2 


1671 


TCRSSS 


1712 


TCRRRR 


1715 


TDIGTl 


1771 


TSRl 


2003 


OTY 


2007 


RL6 


2026 


NCT 


2033 


NIOT 


2043 


ocu 


2045 


OCL 


2046 


OCS 


2047 


TYIBBB 


2050 


MTATAB 


2061 


SCTSTl 


2200 


NOPSC 


2225 


SCT076 


2246 


SCT074 


2265 


SCTO70 


2303 


SCTO60 


2321 


SCTO40 


2337 


SCTO00 


2355 


SCTO01 


2373 
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SCTO03 


2411 


SCTO07 


2427 


SCT017 


2445 


SCT037 


2463 


SCT077 


2501 


SCERR 


2520 


NOPSCl 


2555 


ALSiiER 


2604 


AUS01 


2626 


ALSLNK 


2663 


LNKALS 


2721 


KALS01 


2732 


ALSMQT 


2760 


SGNSHF 


3042 


NSNERR 


3077 


HSALS 


3114 


HSALSL 


3127 


HSALSE 


3134 


ALSERR 


3175 


SIMALS 


3216 


SALSRP 


3244 


RESULT 


3245 


endshf 


3267 


COMMA 


3307 


LLSTSl 


3310 


LLSTS2 


3342 


LLSACT 


3406 


LLSTS3 


3465 


LUSTS4 


3526 


LLSTS5 


3575 


LLSSLl 


3606 


ULSSEX 


3617 


ULSTS6 


3656 


LLSSL2 


3671 


ULSSX2 


3703 


LLSERR 


3745 


KLLSSl 


3767 


LLSSER 


3770 


LRSTSl 


4016 


LRSTS2 


4050 



LRSTS3 


4122 


LRSTS4 


4175 


L.R5TS5 


4236 


LRST5L 


4254 


LRSTS6 


4313 


LRST6L 


4333 


LRSTS7 


4373 


LRST7L 


4405 


URST7E 


4417 


URSTS8 


4450 


LRST8L 


4463 


UR5T8E 


4476 


LLSSEQ 


4527 


LRSSEQ 


4566 


LRSERR 


4630 


LRSERl 


4652 


ACCOMK 


4700 


MQCOMK 


4701 


SCCOMK 


4702 


RANSHF 


5002 


SETLLS 


5025 


LRANLP 


5046 


LRANEX 


5057 


RtSTAY 


5110 


RANRIT 


5112 


SETLRS 


5131 


RRANLP 


5151 


RRANEX 


5161 


RRSTAY 


5212 


RANSEQ 


5214 


RANSQ0 


5237 


RANSOl 


5253 


RANSQ2 


5267 


RANS03 


5303 


RANS04 


5317 


RANS05 


5333 


RANSQ6 


5347 


RANSQ7 


5363 


RANSQ8 


5377 


NXTSEQ 


5417 



SVSIGN 


5446 


SVMASK 


5450 


SEOCOM 


5452 


RANGEN 


5522 


RANNO 


5533 


PASSK 


5535 


KLRS 


5536 


KLLSS 


5537 


SHFBUF 


5540 


NRML2E 


5652 


NRMLZl 


5704 


NRMLZ2 


5737 


NRMLZ3 


6000 


NRML24 


6054 


NRML?5 


6143 


NORMER 


6216 


NORMSE 


6244 


INTEST 


6272 


INTSI 


6314 


INTS2L 


6330 


INTS2 


6346 


INTS2E 


6403 


TEMYl 


6431 


TEM 


6432 


TBC 


6433 


TEMY 


6434 


DCPDIG 


6435 


DCPCNT 


6436 


DCPNUM 


6437 


TWORDH 


101572 


TWORD 


101627 


TYl 


101643 


TY3 


101673 


TCR 


101703 


TSP 


101720 


TAB 


101730 


TYT 


101730 


TIN 


101746 


TDIGIT 


101755 


TSR 


101773 


EXT 


520000 
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10.4.2 



EAE Set-Up Test 



/Eac set up Diaqniostic 

/START AT t0(« 

/PROCESSOR HALTS AT 101 WITH MQ*1»S 

/OR 8TART AT t02 

/SW0 • OCLETr ERROR TYPEOUTS 

/8W1 - HALT aFtER each Ea6 OPERATION 

/SW2 • REPEAT LAST EAE OPERATION 

/SW3 - HALT aFTER EACH EAE SEQUENCE 

/SW4 m REPEAT EACH EAE SEQUENCE 

/SW9 • a-REPrAT SET UP TEST OR SCA AmD SHIFT TEiT! 

/SW5 - l-CVClE SET UP AND SC AND SHirT TEST 



/CAL SUSROUTtNE 
20/ 

?0 

LAC 20 
DAC « 
LAC .+4 
DAC 30 
LAC !^ 
MLT 
20 



/2i» IN CASE OaL 
/QH?T ADDRESS 

/Save 

/RESTORE 20 



/HI r DISPLAY 

/WtLL CAL IF CONTINUE 



/AC. MO, LINK AND SC FCR TYPEOUTS 

30/ 

ACSTRTi pi 

MQSTRT. (71 

Lf^STRT* 

SCSTRT# 

ACEMD# 

MQENin, 

Li^ENin, 

SCEMO, 
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/ROUTIMES THaT TPST repeat AND STOP 

/STOP APTCR MiNiOR LOOP (SWI) AND REPEAT MINqR LOOP (8w2) 



8WlTr!H# 



JMP . 

LAS 

ANn 9IT1 

SNA 

JMP .+3 

LAC I SWITCH 

HLT 

LAC I SWITCH 

DAC .*7 

IS7 SWITCH 

LAS 

AND RIT2 

8ZA 

JMP I ,*2 

JMP I SWITCH 



/MfNOR LOOP HALTt 
/Nft 



/RrPEAT LOOP? 

/YEs 
/CONTINUE IN SEQUENCE 



/STOP AFTER MAJOR LOOP (SW3) AND REPEAT MAJOP LOOP <Sw4> 



SWTc^S. 



JMP . 

LAS 

AND RIT3 

SNA 

viMP .♦vl 

LAC I SWTCHS 

MLT 

LAC I SWTCHS 

DAC SwTCWS-1 

IS7 SWTCHS 

LA<? 

ANn BIT4 

SNA 

,iMP I SWTCwS 

JMP T «5WTCmS-1 



/MAJOR LOOP HALT? 
/Nft 



/RrPEAT MAJOR LOOP? 

/CONTINUE 

/RrPEAT LOOP 
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/DOCS CAE - nR THE MQ TO AC READ 0'S 
/MQ SHOULD BP 7ER0 FROM flTART KEY 
1130/ 

SETUP, aMO 
HLT 



EAERMQ 



NOPah, 



OLA 


4000 


DAn 


MQSTRT 


DAC 


ACSTRT 


PAP 


2 


DAC 


ACEND 


SNA 




JMP 


. + 11 


JMS 


TRROR 


TYPMO 


HDP2 


ACSTRT 6l2000fe) 


MQSTRT 600000 


TYPMn 


ACCND 6000P'0 

ft 


JMS 


SWITCH 


rAFRMQ 


LAC 


MBIT 16 


DAC 


CHARK 


CLFAR THE AC? 


CLr 


4000 


DAC 


ACSTRT 


ANn 


KALL7 


EAE 




DAC 


ACENO 


CMA 




SNA 




JMP 


.♦10 


JMS 


ERROR 


TYMOP 


HDP1 




ACSTRT 600000 


TYMOP 


ACENn ft00000 


5>l 




JMS 


SWITCH 


MOPAC 



/CI EAR LINK 



/OP MQ 1 '9 TO AC 



/SET ENn TEST K 



/CI EAR LINK 

/An AT START 

/MAKE MB-1^8 BEFORE 

/An AT END 

/An Altered 

/ND 



/TYPE CONTENTS Of 

/TYPE TEXT 

/TYPE CONTENTS OF 

/RirPEAT SET 
/LnOP TO HERB 



Dlgital-7-92-M 

/DOCS CAE kHn CLR AC BIT CLR THE AOf 

EAECACf CLO 4000 /Ol EAR LINK 

rAE 1000 /Should clear ac 

DAC ACCND 

SNA 

JMP .♦10 

JMS ERROR 

TYCLA 

HDR1 

ACSTrT 600000 

TYCLA 

ACEND 600000 



JMS SWITCH 

EAECAC 



/U0C8 CLO CLrAR THE mQ 

EAECLO# CLC 4000 

DAC MQSTRT 

EAP- 4 /SfT MQ To 1 '8 

CLA 

DAC ACSTRT 

CLQ /CI EAR THE MQ 

DAC ACEND 

CLA 

EAE 2 /OR MQ 1 »9 TO AC 

DAC HQEND 

SNA /RfAD 0(S BACKt 

JMP .+12 

JMS ERROR 

TYCLQ 

HDR2 

ACSTRT 600000 

MQSTRT 600000 

TYCLQ 

ACEND 600000 

MQrND 60000^ 



JMS SWITCH /RrpEAT SET 

EAPCLQ /START OVgR 
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/DOfS MQ COMPUlMfNT PROM 0*8 TO 1»S 
/AND MQ 1 '9 TO AC 

MQlTAOf CLA 4000 

DAC ACSTRT 



DAC MQSTRT 

CLQ 4 /Cl EAR TH| MQ AND CoMPLIHiNT 

DAC ACPND 

CLA 

CAP 2 /0« THC MQ TO AC 

DAC MOEND 

CMA 

SNA 

JMP .♦12 

JM9 ERROR 

TYCMO 

MDR2 

ACSTRT 600000 

MQSTRT 600000 

TYCMfJ 

ACEND 600000 

MQfNn 60000i^ 



JMS SWITCH 

MQITAC 



/OOPS EAE-NC WITH M(3»1iS ALTER THE AC 

N0PaC1# CLA 4000 

DAC ACSTRT 

CLC 

DAC MOSTRT 

CLQ 4 /SrT MO To ONES 

AND KALL7 /MAKE Mfl TO 1*8 

EAF /NftP 

DAC ACEND 

CMA 

SNA /0nE8 from mo TO aC? 

JMP .+11 

jHS FIRROR 

TYNOP 

M0P2 

ACSTRT 600000 

MQSTRT 600000 

TYNOP 

ACEND 600000 



JMS SWITCH 

M0PAf!« 
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/DOES EAE mop with M0"1»S ALTER THE mQ 



nopmq. 



CLA 40Sl!a 

CLO 4 

AND KALL7 

EM 

DAC 

CLA 

EAE 

DAC 

OMA 

SNA 

JMP 

TYMOP 

WDR2 

ACSTpT 

MQSTRT 

TYMOP 

ACCND (Sia00(?lk3 

MQEND 60'^00ld 



JMS SWITCH 

MOPMfJ 



/SwJ MO To 1 »8 

/MAKE MB TO 1 ■•S BEFORE 

/NOP 



ACEND 
MQEND 



ERROR 



/Mr? STILL 1 *S7 






/DOES NOP WITH ACsi'S ALTE.R MQ 



NOPmOI 



CLA 4 

nAc M 

CLO 

CLC 

DAC A 

ANH K 

EAE 

DAC A 

LACQ 

DAC M 

SNA 

JMP . 

v)M!? F 

TYMOP 

WDR2 

ACSTR 

wQSTp 

TY^!0P 

ACENn 

M E N n 

.iMf; s 
MOpMn 



000 

ostrt 



CSTRT 
ALL7 

CEND 

nEND 

+ 12 

RROR 



T 620(7)0W 
T 600i?Wi^ 

f000£^0 
f 0000i<;» 

w I T C H 
1 



/MAkE MB TO IS BEFORE 



/NnP 

/qfT mo To AC 

/Amy 1 'S in mq 
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/00E8 NOP ALTCR THE lIMK 

/AC 0»S MQ 0iS, AC 1 »S MQ 1 »9 

NOPlNK* CLQ 

DZM AC8TRT 

DZM M09TRT 

DZM LKSTRT 

LAC LKSTRT 

RAP 

LAC ACSTRT /9fT LTNK FO^ TS8T 

AND KALL7 /MAkE MB TO ONES BEFORE 

EAE /NftP 

QLK 

DAC LKEND 

SAO LKSTRT /LTNK ALTERCOf 

JMP .+12 

JMS ERROR 

TYNOP 

MDR3 

LKSTRT 700(?0t /ZPRO SUPpRISi CONTENTS 

ACSTRT 60000fc 

MQSTRT 60000lfi 

TYNOP 

LKEND 700000 



JMS SWtTCH 

N0PLNK'f4 

LAC LKSTRT 

IS7 LKSTRT 

SNA /CHECKED L"0 AND l"1? 

JMP NOPLNK+4 

LAC ACST»T 

SZa /CHECKED rOR aC»1 «S 

JMP EAESLK /Y»S 

CLO A /SrT MQ To 1 »8 

CLC 

nAC ACSTRT /Af! START •\ »g 

DAC MQSTRT 

nZM LKSTRT /LfNK 8TART»0 

JMP NOPLNK+4 

/U0E8 MQ TO aC ail 1'S WITH AC»1»S 
QONEAC* CLC 

DAC ACSTRT 

DAC MQSTRT /SET MQ Tq I 'S 

CLQ 4 /Mfll »S TO Ad »A 

CMQ 

DAC ACEND 

CMA 

SNA /AC STAY 1 ''8 

JMP .*11 

JMS PRROR 

TYRMQ 

HDR2 

ACSTRT 

600000 

600000 

MQSTRT 
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TYRMfS 
ACFND 



JMS SWtTCm 

oomEac 



/LiMK SET TO 1 AMD TO ZERO? 



CAESLKi 


DZM 


LKSTRT 




nZM 


MQ<?TRT 




cm 






LAC 


RIT0 




DAC 


ACSTRT 




LAr 


LKSTRT 




PAR 






1 AC 


AC!;TRT 




EAF 


300k)0 




DAC 


ACEND 




C5LK 






DAC 


LKENn 




By^ 






SAn 


acstrt 




t^KP 






JMo 


.♦4 




LAC 


ACFND 




qAD 


ACC!T«T 




JMP 


. + 13 




JMq 


PRROR 




TYSLK 




HDW3 




LK<?TQT ITiV^Qs^^ 




AC«^TffT 6i50P)k)W 




MQ<?TPT 




TY<?LK 




LKrNn 7i^f^C^?ild 










<5wITCH 




EAPSlk+5 




TS7 


LKC5TRT 




1 AC 


ac«?trt 




DZm 


AC!5Tt?T 




SZA 






viMP 


|rAFbLK*5 
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/START LINK TO 1 
/Mfl 0»S 

/4I30000 

/SrT LINK INITIAL 

/AC 9IT TO LINK 

/LINK Same as STARTf 
/ERROR 
/AC ALTERED? 



/LftOP SET? 

/NrXT PASS LINK 1 TO ZERO 
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/DOCS MOP ALTfcR MQa0»S WITH L«1 

NUPLK1, DZM ACfiTRT /START AC 0»8 

DZM MQSTRT /Mr> 0»9 

CLD 

I AC RIT17 /1«LINK 

DAC LKSTRT 

PAR 40(^k3 /CI R L!NK, SET LInK 

ANO KALL7 /mAkE MR TO ONlEs BEFORE 

EAP /Nr»P 

nAC ACEND 
QLK 

DAC LKPNO 
LACQ 

DAC MQFND 

SNA /Mf5 STILL ZERO'S 

LAC ACFND 

«?IMA CLA-OPR /AO STILL ZERO'S 

LAC LKENO 

<5ZA /LINK STILL 1 

JMP .+14 
JMS (TRROR 
TYMOP 
HDR3 

LKSTrT 70C?00ld 
ACSTRT 6i300k)l^ 
MQSTRT 61/500014 
TYNOP 

LKE:Nr! 7Vi^7\m 
ACPtvin fW00i?ie) 

MQpNn A000l?'W 



JM5 «?WtTOM /CuiECK MINOR LOOP Sw 

M0PLK1 

JMS qwTCus /Major loop sgT? 

MOPAf! /START NOfi THE AC 
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/WILL AC TO mQ to AC ALL PATTERNS 
yWlTN MQ IMITIALLY = AND LINK » 

5"ij(f aCORmq, pzm AC<?TRT /start AC « 0iS 

nZM mqrTRT /Mn always 0'S 

CLL CLA-OPP. 
CLri 

LAC AC5TRT /QfT NEXT SET 

PAP :?00ld /Af! TO MQ 

DAC ACEND 

LACU /Mfl TO AC 

DAC MOEND 

SAn AC??T.RT /Hfi TO AC SAME AS START? 

SKP 

JMP ,+4 
^i>ei LAC ACPND /YEs* TRY AC 

SNA /Aff SHnULO BE CI 

• IMP , + l7 
i^^t/ JH<; PRR,Q» 
TYBMO 
MDR2 

ACSIRT 6000010 
WQ9TPT 6000lfllO 
TY<5ivin " 

MQSTRT 6000k3k3 
ACqlRT 6^00k3l^ 
TYrOR 
TYLAHQ 
ACPNH ^00000 

TYTNnn 

(A. 

JMS SWITCH /CHECK FOR REPEAT LoOP 

ACnRMn*2 

TS7 ACSTPT /Tn 7777771 

jMP AcnRMQ*2 

JMR SWTCHS 

ACCRMQ 
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/WILL AC TO mU to AC ALL PATTERNS 

/WITH MQ ■ laSt pattfRm and link ■ 1 

ACmn, DZM acstrt /start ac ois 

DZM MfJSTRT /Mfl Olfi 

OLO 

LAr RIT17 /LINK 1 

DAC LK<5TRT 

STi. /9rT LINK 

LAr ACSTRT /QfT NEXT CONSTANT 

LMO /Mfl TO 0»8« Ac 1 ♦« TO MQ 

DAC ACPND /SAVE An RESULT 

fSLK 

DAC LKPND /SAVE LfNK RESUlT 

LAHQ /Qwj M(5 

DAC MOFND 

SAD ACSTRT /Mo ■ AC AT StART* 

SKP 

JMP ACLMOC /Hf5 ERROR 

LAC LKPND 

SNA /LtNK«1 at ENb? 

JMP AClMQE /LINK PRROR 

I.AC ACFND 

SAD ACSTRT /AC END » AC START? 

JMP .*?2 
ACLMfJE* JMS TRPOR 
TYLMn 
HDR3 

LKSTrT 700P)0li3 
ACSTRT 6;^006!ia 
MQSTRT 600C9I(5W 
TYLMQ 

LKSTRT 7000WW 
ACSTRT 600P»k3KJ 
ACSTRT 6i!l000W 
TYCOR 

tylacq 

LKEND 700000 

ACPlNin ft000P!0 

MQPND A00000 

TYTNCn 



LAC MOPNO 

DAC MQSTRT /NrW MQ START 

JMS SWITCH /RrPEAT Set? 

ACLMn+5 

IS7 ACSTRT /Tn 777777? 

JMP ACLM0*«5 

JMS SWTCHS 
ACLMO 



/00E8 THE MQ COMPLIMENT ALL PATTERNS 
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COMPMQ, 



DZM AC9TRT 




LAC ACSTRT 


/QirT NEXT PATTERN 


nAC MQSTRT 




LMO 20000 


/AC TO mQ# Ae0 TO L 


CMQ 


/•hQ 


OAC ACEND 


/8AvE Ac RESULT 


LACQ 


/QfT MQ 


DAC MOEND 




CMA 


//mQ 


SAD ACSTRT 


/-MQ • AC STARTt 


LAC ACEND 




SAD ACfJTRT 


/AflEND » AC 8TARTf 


JMP .+12 




JMS ERROR 




TYCMO 




HDR2 




ACSTRT 600000 




MQSTRT 600000 




TYCMO 




ACEND 600000 




MQENn f00000 




JMS SWITCH 




COmPmQ+1 




TS7 ACSTRT 




JMP COmPMQ+1 




JMS SWTCWS 




compmo 





/DOES AC TO mQ ALL 1»S WITH MQ"1t8 



acomeq# 



CLC 

DAC MQSTRT 

DAC ACSTRT 

CL^ 4 /SET MQ»1 'S 

PAP 5>000 /AC 1 ♦S TO Mfti 'S 

DAC ACENn 

LACQ 

nAr mqe:no 

CMA 

SNA /MQ STAY 1 'S 

JMP ,+16 

JMS FRROR 

TY«;Mn 

HDR2 
ACSTRT 
6000P10 
6 W 

mqsTpt 

TYSHO 

ACFND 

60PI000 

60PI000 

MQEND 



JMS SWITCH 

ACONFQ 
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/OOES ABS GET ABSOLUTE AC 
/AND NOT DISTURB LINK«1 OR 



NDSCTU, 



nZM ACSTRT 


/START AC 0tS 


LAC RIT17 


/LINK 1 


DAC LK<?TRT 




LAC LKSIRT 




RAR 


/SfT LINK 


1 AC acrtrt 


/QfT AC Start 


A85 


/ArSOUUTE AC 


OAC ACEND 


/SAvK RfSuLT 


RLK 




DAC LKENO 




SAD LKfi?TRT 


/LTNK SAMf? 


SKP 


/YrS 


JMP .+A 


/ERROR, IfNK CHANeED 


I.AC ACSTRT 




SPA 


/AC POSITIVE AT START? 


CMA 


fWfS, SMOUlD Be post ABS 


SAD ACf^ND 


/RESULT Ac OK? 


JMP .+12 


/YrS 


JMS PRROR 


/ABS ERrQR link OR AC 


TYABS 




HDR3 




1 KSTRT I'A^m^ 




ACSTRT 6000013 




TYABS 




LKENn 700000 




acend h^^m^ 

JMS SWITCH 






PAFARS+3 




IS7 ACSTRT 




SKP 




JMP MDSETU 




LAC LksTRT 




CMA 




AND RIT17 




DAC LKSTRT 




JMP e:aeabs*3 




JMS SWTCMS 


/TrST REPEAT MAJOR 


PAPARS 




LAS 




AND RIT6 




SNA 




JMP .+6 




LAW ^7 




TY1 




isz chahk 




JMP ,+4 




viMS CrlF 




1 AC N&lTlft 




DAC CMARK 




1 AS 




AND RIT5 




SNA 


/RPpEAT All bet? 


JMP NOPAC 


/cVcLE SET UP Test 



JMP SCT076 



8TAHT 
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/CYCL't liT Uf AnO shift 
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/EAE ERROR TYPEOUT ROUTINE 

/GENERAL PURPOSE 

/LINKS TYPTEX AND ALL TYPE CONTENTS 



/AC>0 IS 


END 


OF TYPEOUT 


/AC NOT s 


AND POSITIVE 


/AC - AND 


BIT 


130 


IS CR, 1 


/AC - AND 


BIT 


i«i 


IS TYPE 


/AC - AND 


BIT 


2s0 


IS NO Zl 


/AC - AND 


BIT 


2 = 1 


IS ZERO 


/AC - AND 


BIT 


3 = 


IS ZERO 


/AC - AND 


BIT 


3»1 


IS ZERO 


ERROR* 




JMP 
LAS 
SPA 








JMP 


TYDELE 






JMS 


CRLF 






LAC 


.♦3 






OAC 


SAVERR 






JMP 


TYPECN 






ERROR 


ERLOOP. 




LAC 


I ERROR 






DAC 


SAVERR 






IS2 


ERROR 






SZA 








JMP 


ERCONT 






LAS 








AND 


BIT7 






SNA 








HLT 








TSF 








JMP 


.-1 / 






JMP 


I ERROR 


ERCONT. 




SPA 








JMP 


TYPECN 






TSR 








JMP 


ERLOOP 



IS TYPETEXT 
LF TYPE CONTENTS 
CONTENTS 
ZERO UPPRESS 
SUPPRESS 
SUPPRESS? 
SUPPRESS4 



/CR LF TYPE CONTENTS ERROR 



/GET NEXT TYPE CONSTANT 
/FOR INDIRECTS 

/END OF MESSAGE? 

/NO 

/GET SWITCHES 

/DELETE HALT? 
/ERROR HALT 

/WAIT FLAG 

/EXIT ERROR ROUT. 

/TYPE TEXT INDICATED? 
/N0> TYE CONTENTS 



/TYPE CONTENTS ROUTINES 
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TYPECN* 


AND 
SNA 


BITI 




JMS 


CRLF 




LAC 


SAVERR 




AND 


BIT2 




SNA 






JMP 


TCALL 




LAC 


SAVERR 




AND 


BIT3 




SZA 






JMP 


TCTWO 




LAC 


I SAVERR 




AND 


.>11 




S2A 






JMP 


TCALL 




LAC 


I SAVERR 




CLL 


RTR-OPR 




RTR 






TWORD 




1 






JMP 


TCALL*3 




777770 



/CARRIAGE RETURN INDICATED 
/YES 



/SUPPRESS 2ER0 SET? 

/NOf TYPE ALL 



/SUPPRESS 4 0»S SET? 
/YES 



/UPPER 5 CHAR » 

/N0# TYPE ALL 



/SPACE 3 
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TCALL, 



TCTWO, 



CRLF, 



LAC I SAVERR 

TWORD 

6 

LAW SPACES 

TSR 

JMP ERLOOP 

777700 

LAC I SAVERR 

AND .-2 

SZA 

JMP TCALL 

LAC I SAVERR 

CLL RTR-OPR 

RTR 

RTR 

RAR 

TWORD 

2 

JMP TCALL+3 

JMP . 

LAW CRCODE 

TSR 

JMP I CRLF 



/TYPE 6 OCTAL 



/OUTPUT 3 SPACES 



/FIRST 4 CHARACTERS 

/NOf TYPE WHOLE WORD 

/POSITION LS 2 
/TO UPPER 2 
/FOR TYPEOUT ROUT 

/TYPE UPPER 2 CHAR 
/SPACE 3 
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TYDELE, 


LAC I ERROR 




ISE ERROR 




SZA 




JMP TYDELE 




LAS 




AND BIT7 




SNA 




JMP I ERROR 




LAW 51 




TYl 




TSF /WAIT FLAG 




JMP .-1 




JMP I ERROR 


MIN5, 


777773 


MiN6, 


777772 


ChARK, 










SVCHAR, 






























SEVEN, 


7 


TWO40, 


240 


TWO60» 


260 


SEVSEV, 


77 


SEVSIX, 


76 


SAVErr, 





KX6, 


777756 


SIXTY, 


60 


SEVNTY, 


70 


SEVN4, 


74 


FOURl, 


41 


THREE7, 


37 


SIXONE, 


61 


ONESEV, 


17 


SEVONE, 


71 


SEVFIV, 


75 


THREE, 


3 


F0UR5, 


45 


F0UR4, 


44 


F0UR3, 


43 


THREE4, 


34 


FIVE6, 


56 


COMBIT, 


252525 



/REACHED END OF MESS. 
/NO 



/RING BELL SET? 
/NO, EXIT 
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/BtT AND NO 


BIT CONS 


BrT0, 


400000 


BITI. 


200000 


Btl2» 


100000 


BtT3» 


40000 


BIT4, 


20000 


BITS, 


10000 


BrT6. 


4000 


BIT7, 


2000 


BITS, 


1000 


BIT9, 


400 


BIT10, 


200 


BITll, 


100 


BIT12. 


40 


BIT13, 


20 


BIT14, 


10 


BIT15» 


4 


BIT16, 


2 


BIT17, 


1 


NBIT0. 


377777 


NBITl, 


577777 


NBIT2, 


677777 


NBIT3. 


737777 


NBIT4, 


757777 


NBIT5, 


767777 


NBIT6, 


773777 


NBIT7, 


775777 


NBIT8, 


776777 


NBIT9, 


777377 


NBIT10. 


777577 


NBITll. 


777677 


NBIT12, 


777737 


NBIT13, 


777757 


NBIT14, 


777767 


NBIT15, 


777773 


NBIT16. 


777775 


NBIT17. 


777776 


KALL7. 


777777 
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/MESSAGE CONSTANTS 
/ERROR TYPEOUT HEADERS 
/AC CONTENTS 
HDR1» TEXT / 

C(AC) 
START / 



/AC AND MQ 

HDR2, TEXT / 

C(AC) C(MQ) 
START / 



/LINK AC AND MQ 

HDR3, TEXT / 

L C(AC) C(MQ) 
START / 



/SC AC 

HDR4, 

SC 
START / 



TEXT / 
C(AC) 



/3 SPACES 
SPACE3. 



TEXT / / 



/4 SPACES 
SPACE4, 
/ 



TEXT / 
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HDR5, 

L C(AC) 


TEXT / 
C(MQ)/ 


TYPATR, 


TEXT /PAT/ 


TYCOR, 


TEXT /COR/ 


TYINCO, 


TEXT /INCO/ 


CRCODE. 
/ 


TEXT / 


TYNRMS. 
NORMS / 


TEXT / 



TYINTE, TEXT / 
NO PROGRAM INTERRUPT/ 

INDAT» TEXT / 
INTERRUPT DATA ERROR/ 
TYSTRT, TEXT /START/ 
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/OPERATION TYPEOUTS 
/EAE NO OPERATION 

TYNOP# TEXT / 
EAENOP / 



/EAE CLA 

TYCLA, TEXT / 

EAECLA / 



/CLEAR MQ 

TYCLO# TEXT / 

CLO / 



/COMPLIMENT Q 
TYCMOf TEXT / 
CMQ / 



/OR MQ TO AC 

TYRMQ* TEXT / 

ORMQAC / 



/AC0 TO LINK 

TYSLK, TEXT / 

AC0TOL / 



/OR AC TO MQ 

TYSMQ, TEXT / 

ORACMQ / 



/LOAD AC WITH MQ 
TYLACQ, TEXT / 
LACQ / 



/LLS 

TYLLS, TEXT / 

LLS / 



/LLSS 

TYLLSS, TEXT / 

LLSS / 
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/LRS 
TYLRS» 
LRS / 



TEXT / 



/RESULT 
TYSIMR, 
RESULT / 

TYLRSS. 
LRSS / 



TEXT / 



TEXT / 



TYRDSQ, TEXT / 
RANDOM DATA SEQUENCED/ 
TYRES, TEXT /RESULT/ 



/LOAD MQ WITH AC 
TYLMQ, TEXT / 
LMO / 
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TYABS. 
ABS / 



TEXT / 



/CLR SC 
TYCSC» 
CLR SC / 



TEXT / 



/LACS 
TYLACS. 
LACS / 



TEXT / 



/SC ERROR 
TYSCER» 
SC ERROR / 



TEXT / 



/NORM 
TYNORM. 
NORM / 



TEXT / 



/SET SC 
TYSSC. 
SET SC / 



TEXT / 



/SC^l 
TYPLSl. 
SC*1 / 



TEXT / 



/ALS MQ TEST 
TYALSQ, TEXT / 
ALS MQ TEST/ 



/ALS 
TYALS> 
ALS / 



TEXT / 



START 
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10.4.3 Shift Counter and Basic Shift Test 



/SHIFT COUNTpR AMD 

/AC MQ SHIFT Test 

/TAPF 3 OF" pDp7 EaE TEST 



/SHIFT COUNTER TEST 
/UTILIZES NORMALIZE INSTRUCTIOM 
/WlTM MO SHIFT TO DATA TFST S.C 
/DOES START kEY CLEAR THE SO 

2200/ 

SCTsTi, LAC SEVSEV 



DAC SCSTRT 

LAC RITI /200000 ALREADY MORMALIZEd 

NJORM "43 /SFT SC To -I <77) 

HLT /PhESS STaRT TO ClR 8c 

LACS /SC TO AC 

DAC SCEND 

SNA /Rl^AD SC«p|»S tO Aes? 

JMP .-Hi /YrS# CONTlwUE 

JMS ERROR 

TYCSC 

HDR4 

SCSTRT 740(?!00 

TYCSC 

TYLACS 

SCENn 740000 



vJMs SWITCH 
SCTST1+6 
LAC MBlTlfe 
DAC CHARK 
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/Does eae nop alter the sc 



NOPSC. 


DZM SCST^T 








AND KALL7 




/MAKE MB ONES BErORE 




EaE 




/NflP- 




lACS 




/QrT SC To aO 




DAC 8CEND 








SNA 




/Srt STILL ZERO'S 




JMP ,+11 








JMS ERROR 








TYWOP 








MDR4 








SCRIPT 740P)00 








TYmOP 








TYLACS 








SCEND 746!!000 
JMS SWITCH 














MOPSC 






/Does sc 


SET Tn 76 AMD 4.1 TO 


77 




SCT076# 


LAC SCENO 
DAC SCSTRT 
LAC RIT17 








DAC MQSTRT 




/NORM 01 




LAC RITl 








DAC ACSTRT 








NORM "43 




/SrT SC To 76*1 To 77 




DAC ACEND 








LACS 








DAC SGEND 








SAD SEVSEV 








JMP ,♦? 








JMS SCERR 








JM«; SWITCH 








RCT076 






/DOES SC 


SET To 74 AMD +1 TO 


75 




SCT074# 


LAC SCEND 
DAC SCSTRT 
LAC THRtE 
DAC MQSTRT 
LAC RITl 








MOPM -41 




/Sc TO 74*1 To 75 




DAC ^CEND 




/SAVE PoR ERROR TYPE 




LACS 








DAC SCEND 








SAD S£\/F"IV 








JMP .+? 








.iMq SCERR 








JM«? SWITCH 







SCT074 
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/DOfi 8C SET To 70 AND +1 TO 71 



9CTO70i LAC SCeNO 
DAC SCSTRT 
LAC SEVEM 
DAC MQSTRT 
LAC I9IT1 
NORM "35 
DAC ACEND 
LACS 

DAC SCEND 
SAD 3EV0NC 
JMP .+!? 
JM9 SCERR 
JM<5 SWITCH 
SCTO70 

/WILL SC SET To 60 AND +1 TO 61 



/7. 80 TO 7a AND ♦I TO 71 

/SAVE FoR ERROR TYPE 



SCTo*0, 



LAC 

DAC 

LAC 

DAC 

LAC 

NORM 

DAC 

LACS 

DAC 

SAD 

JMP 

JM«5 

JMS 

SCTO 



9CEND 
SCSTRT 

onesev 

MQSTRT 
PITI 
-?5 
ACEND 

SCEND 

SIXOME 

.+? 

SCERR 

SWITCH 

60 



SCTO40* 



LAC S 

DAC S 

LAn T 

DAC M 

LAC R 

MORM - 

DAC A 
LACS 

DAC 9 

SAD F 

JMP . 

JMS S 

JMP S 



cend 

CRTRT 
HREE7 
QSTRT 
ITl 

CEND 



CEND 
OtiRl 
+ 51 

CEHR 
WITCM 
SCT04H 



/NftRM 17 



/SrT SC TO 60 AND ♦I TO 6i 

/SAVE FoR ERROR TYPE 



/RrA 



/WILL SC SET To 40 AND *1 TO 41 



/NORM 37 

/29I000 ALREADY NORMALIZED 
/SrT SC TO 40 AND +1 TO 4l 

/QrT Sc To AC 

/SAuE FoR ERROR TYPE 
/READ 41 FROM Sc TO AC 

/YfS 
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/WIUL SC SET To t? AND *1 TO 1 

SCTO00» LAC 9CEN0 
DAC SCSTRT 
LAO SEVSEV 
DAC MOSTRT 
LAC RITl 
MORM +33 
DAC ACENO 
LACS 

DAC SCEND 
SAD RIT17 
JMP ,'♦•2 
vJMS SCERR 
JMS SWITCH 
SCTOai0 

/WILL Sc SET To 01 AMD +1 TO 02 



/NORM 77 



/8fi To 00 41 TO 01 



/YfS 



/SC READ 0lt 



SCTOi^l , 



LAC S 
DAC S 
LAC S 
DAC M 
LAC R 
NORM 
DAC A 
LACS 
DAC S 
SAD 
JMP 
JMS 
JMS 



CENO 

CSTRT 

EVSIX 

QSTRT 

IT1 

32 

CEND 



ICEND 
IIT16 
+ 2 

SCEHR 
IWITCM 
SCTO01 



/NORM 76 



/Spt so To 1 ^1 To 2 



/WILL Sc SET To 03 AMD +1 TO 04 



SCTO03, 



LAC S 
DAC S 
LAC S 
DAC M 
LAC R 
MORM 
DAC A 
LACS 
DAC S 
SAD R 
JMP . 
JMS S 
JMS 8 
SCTQ0 



CEND 

CSTRT 

EVN4 

QSTRT 

ITI 

•••30 

CEND 

CEND 
IT15 

cerr 

WITCH 
3 



/NORN 74 



/Srl SC To 3 ^1 To 4 



/SH to AC "4? 

/YfS 
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>«lLl 8C SeT To 07 AND ♦< TO 10 
8CTO07i 



SCT017, 



SC7017* 



LAC 


SCCND 


DAC 


8C8TRT 


LAC 


SEVNTY 


DAC 


MOSTRT 


LAC 


BITt 


NiORh 


1 ♦94 


DAC 


ACEND 


LACS 


) 


DAC 


SCCND 


SAD 


SITU 


JMP 


.♦2 


JMS 


8CERR 


JM8 


SWITCH 


SCTO07 


1/ 


' AND ♦ 


LAC 


8CCND 


DAC 


scstrt 


LAC 


SIXTY 


DAC 


MOSTRT 


LAC 


BIT1 


NORM ^14 


DAC 


SCEND 


LACS 


DAC 


SCENO 


SAD 


BIT13 


JMP 


.♦2 


vJMS 


SCERR 


JMS 


SWITCH 


8CT017 


3y 


f AND ♦ 


LAC 


SCEND 


lac 


SCSTRT 


LAC 


BIT12 


DAC 


mqstrt 


LAC 


BITI 


NORi^ 


1 «4 


DAC 


ACEND 


LACS 


DAC 


SCEND 


SAD 


RIT12 


JMP 


.♦2 


JMS 


SCERR 


JMS 


SWITCH 


8CT0S7 



/NORM 70 



/Sit "SC To 7 ♦I TO 10 



/IC TO AC • 10? 



/YfS 



/NORM 60 



/8f5 TO 17*1 TO 20 



/80 TO AC ■ 20? 



/iwS 



/NORM 40 



/SfT SC TO 37 *1 tO 40 



/SO TO AC ■ 40? 



/yws 



/WILL SC SET To 77 AND +1 TO 00 



SCT077. 



LAC 8CEND 
DAC SCSTRT 
LAC SEVSEV 
DAC MOSTRT 
LAC BITl 
NORM -44 
DAC ACFND 
LACS 

DAC SCEND 
SNA 

JMP ,♦?> 
JMS SCPRP 
JMS SWITCH 
SCT077 
JMP NOPSCI 
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/NORM 

/SrT SC TO 77 AND ♦I TO 

/QrT SC To AC 

/Sfl TO AC • 00? 
/YfS 
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SCERP, 



J MP 
I AC 
DHA 
AMD 
DAr 
TAn 
ANH 
HAH 
JMS 



M S T fl T 



1... K 
FR 



SCfHP 
SCSTRT 

ACSTST 

TYMORf^ 
MQSTRT 
TYSSn 
MQFNn 

TYPLRI 

I KFNn 

TYnOo 

TYLACS 

SCPNH 

TYTNCn 

SPACF3 

ACFND 

JMP I 



FIND 
T17 
VSEV 

^m 

RUR 

7400fe)0 

6 ?i » C^ feJ fe3 

7 4 f^ 1(3 14 
7400^0 

7 4 1;^ M 

7400014 
«5CFRR 



/GrT SO OF NORM 
/SMQULD SET Sc TO 

/Sr SHOULD +1 TO 

/TYPE OUT 
/Sfl ERROR 
/E»ROR ADDRESS 

/Sn AT START 

/Ar AT START 

/Sn PORTION Of NORM 

/SmOULD SgT Sc TO 

/Sr! SHOULD ♦I To 

/S(? To AC Equaled 

/An AFTER NORM 



/DOES EAF NOP ALTER 9C a 77 



NQPSnl , 



I. Ar S 
DAC fi 
I AC P 
NORM 
ANn K 
FAF 7 
I ACS 
DAC S 
SAD f5 
• IMP . 
JMS F 

tymop 

HDR4 
SCSTR 
TYMOP 
SCSTr 

tylac 

SCFND 
..IMS S 

NOPSn 

JMS S 
SCT07 



FVSEV 

CSTRT 
ITl 

-43 

ALL7 
7 

CFND 

CSTRT 

•f 12 
RROR 



T 740PI00 

T 740P!i(30 

S 

7400l?)0 

WITCH 
1 

wtchs 

6 



/SpT Sn To 77 

/MAkE MB TO ONEs BEFORE 

/NOP smould Not ai teR sc 

/QFT SC To AC 
/Sn TO AC a 77? 
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/SHIFT Tests 

/ALS - ACCUMULATOR LPFT «HIFT 
/DOES Al8 AC ■ 0'S Al.TER THE AC? 



ALS7ER, 



nZM acstst 
nZM mostrt 
nzH lksTRt 

nZM SOSTRT 

OLQ 1000 

OLL 

ALS 

DAC ACEND 

QLK 

nAC LKEND 

LACS 

DAC 8CEND 

LAC ACEND 

SNA 

SKP 

.IMS ALSEfiR 

JMS SWITCH 

AL«ZER*4 



/Cl EAR AC • HO ANn LINK 



/Dots Al'S 01 Ac ■ (?i»S OK 



ALS01 « 



1 AC RIT17 

DAC SCSTRT 

DZM ACSTRT 

DZM MOSTRT 

DZM LKSTRT 

CLO 

EAP 1000 

CLL 

ALS PI1 

DAC ACEND 

GLK 

DAC LKEND 

LACS 

DAC SCEND 

LAC ACEND 

SNA 

SKP 

JMfi ALSERR 

LAC HOSTRT 

LMO 

JMS SWITCH 

ALS01'»>6 

LAC MQ9TRT 

SZA 

JMP ,<¥3 

CLC 

DAC MQSTRT 

EAE 4 

JMP ALS01+6 



/ALS 01 

/AC 0»9 ro START 

/Mft 0»9 
/L!NK 18 lERO 



/SHIFT AC LEFT 1 



/LINK FOR TYPEOUTS 
/SO FOR TYPEOUTS 



/2nD Pa88 HQ 1 1»« 



DIgIfal-7-92-M 
Page 56 



/LIM'< TO AC 1? 

/BIT » (? L = 0. RIT =0 L»t , 



ALSl MK, 



nZM A 
nzM M 
nZM I 

HLQ 
LAC L 
RAR 
I.AC A 
ALS '^ 
nAC A 
f?LK 

nAH I. 

I AHS 



OAn <; 

I A f A 
RAl 

TAn L 

SAO A 
SKP 

JMS 9 
AL?^LM 

LAH L 

TS7 I. 
<?NA 

JMP A 

nZM L 

t.AC A 

TS? A 

JMP A 



C?;TRT 
a«?TRT 
K55TRT 

KSTRT 

CcsTRT 
1 

CEND 

KENO 

CFND 
CSTRT 

KSTRT 

CEND 

L«5ERR 
WITCH 

K9TRT 

K«;TRT 

K<5TRT 
CSTRT 
C9TRT 

LSLMK*3 



SIT = 1 L ■ 0* BIT ■ 1 L « 1 
/START AC 0'9 
/LTNK START 



/ltnk « or 1 



/2md Pass l«i 



/3RD AMD 4TH PASS Ac»1 



/DOES AlS ALTE.R THE tlMK » 1 OR 



LiMKALS* 



KALS'"M# 



DZM M 

Z ^^ A 
nz^ L 

LAC R 
HAC S 
CLO 
LAC 
RAR 
LAC A 
ALS PI 
DAC A 
LACS 
DAC <5 
f5LK 
DAC L 
SAn L 

JMR A 
JMS S 

lnkal 

LAC L 



OSTRT 

CSTRT 

K«!TRT 

IT17 

CSTRT 

LKSTRT 

acsTrt 
1 

CEND 

CEND 

KEND 
KStRT 

LPERR 
WiTCH 
S + 5 
KSTRT 



/M(?i Always ■ 

/START AC»0 

/ltnk start 

/SC ■ 01 



/LtNK « 1 R CI 
/AC ■ Or 400000 



/SAVE Ac RESULT 
/SAvE 9C RESULT 



/LtNK same a8 STRT? 
/YffS 



Dlgltal-7-92-M 
Page ^1 



TS7 LK5TRT 

«5MA 

JMP LNiKAUS + 5 



/2MD AND 4TH PAS 
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I AC AC«5TRT 
I.AC RIT0 
SAP ACSlRT 

DZM LK??T»T 
nAC Aac;T»T 
JMP LNKALS*5 



/AC ^ Al READY = 1 
/3RD AND 4Th PASS 



/Ar!»40(^000 



/DOES ALP ALTER THP mQ 



ALSvOT* 



nZH M 

nzM A 
nzM L 

LAC '^ 
DAC R 
LAr 1. 
RA« 
LAC M 
LMD 
LAC a 
ALS "! 
riAC A 
RLK 

nAC 

LACS 

nAC s 

l. ACQ 

DAC M 

<9An M 

JMP . 

JM«? F 

TYALfi 

WDR3 

LKRTR 

ACcsTr 

MOSTR 

TYALS 

LKFNn 

ACEND 

MQFNP 

JM«? S 
ALSMn 



Q«lTRT 

c<?trt 

KSTRT 

IT17 

CPTRT 

krTrt 

QSTRT 

C9TRT 

1 

Cf=:ND 

lkfnd 

CENn 

qEND 
OSTRT 
+14 /YES 
RROR 



T 7i)P)C10fe3 
T 60000W 
T 

700P)00 

Ai<300f^0 

WITCM 
T*5 



/I^T PASSES Mo « 0'S 

/Al s 01 Place 

/Lai OR 

/Mn s 5i»s OR 1 ♦s 
/Ac s (?I'S OR 1 'S 



/Mft Same aS Start? 



MSMCSR, 



!S7 

S N A 
J MP 

n2M 

I AC 
HMA 
HAC 
PZA 
JMP A 
I.. AC M 
CMA 
DAC M 
?ZA 
..IMP A 
J MS 5=! 



LKST^T 
LK«5TRT 

ALqMQt + I? 

LkRTRT 

ACf=5TRT 

AC^TRT 



L^MQT't.i? 
Q«;T«T 

nqTRT 



L«5Mr3T + i? 
wTCHS 
AL^ZfTR 
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/E\/ERY OTHER pASS L » 1 

/npxt pass I 8 
/Ar!s0»s, 1's, 0»s. rs 

/Mn » ^'s 4 Passes rs 4 passes 



/MflSTRT Back to 0'S? 

/No* TpST Ml ■ 1 tfi 



/WiLI ACC^ GO T 
/IMMEDIATELY I"" 
/a-0'.0-1 ,1-0.1 
SGNSMF, 



L 
nLL 
-1 

nZM 

DZ^^ 

I.AC 

DAC 

LAC 

DAC 

LAC 

PAR 

LAC 

ALS 

P"AF 

DAC 

RLK 

DAC 

SAD 

JMP 

JM«5 

TYA 

SCR 

TYS 

WOR 

LKS 

ACS 

TYA 

TYS 

LKF 

ACF 

TYP 

(?) 

vJMS 

«?GM 

LAC 

TS7 

SNA 

JMP 

nZM 
LAC 
SAD 



IMK propehly 

OWING AN AUS LEFT SwiFT 

LKSlf^T 
M Q S T R T 
R I T 
AC<5TRT 
PIT1 7 
SCSTRT 
LKSTRT 



AC<?TRT 

A C F N D 

L K F N n 

M Q S I" R T 

MSMERR 

FRROP 
LR 

TRT 74fil000 
LK 
3 

TRT 7W00l^W 
T P T 6 li'J fc3 
LS 
LK 

ND 7(O'^0!7lk) 
ND (t,0t^000 
ES 

SWITCH 
SMF*6 
LKSTPT 
LKSTRT 

SGnSHF+6 
LKSTRT 
RiTl 
ACSTRT 



/MAKE L«S 
/Ar!0=1 GO 



/LK TO CI FIRST 

/TO OOMpArE LINK ONLY 

/FIPST AC031 GOES To 

/SHIFT«1 0PLACE 

TART 

ES To oR ■ PI GolS TO 1 
/GET SIGN OF AC 
/SAVE FftR TYPEOuTS 

/SAVE FnR TYPEOUTS 
/L«CORRFCt RESULT 
/YE9 



/END SCnPE LOOP 



/THIS PASS L"1 



/TESTED SiQN»1 
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JMP HSAL5 
HAH ACSTRT 
TS7 MOSTRT 
JMP 55GMSMF + 6 



/YES 
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/WILL ALS SHtFT 1 TO 18 PLACES? 
/IST PASS BIT 2ND PASS Nin BIT 



hsals. 



HSAL^L* 



HSAlSE* 



nZM MQsTRT 
LAC BIT17 
DAr ACSTRT 
nZM LKSTRT 
JMR 8IMALS 
LAr Klfl 
HAC 10 
LAC KALSeii 
DAC HSALSE 
LAr fllTl7 
DAr SCI9TPT 
LAr LKSTRT 
RAP 

LAr MQgTRT 
LMn 

LAr AHSTRT 

AL«? fi^l 

DAC ACEND 

(9LK 

DAC LKEND 

LACS 

DAC qCEND 

SZA 

vJMP .+6 

LAC LKEND 

SAD LKSTRT 

LAC ACEND 

SAD I SALSRP 

JHP ,+? 

JMS ALSERR 

JMS SWITCH 

HSAL8L 

LAC MQSTRT 

CMA 

DAC MOSTRT 

IS7 HSALSE 

!S7 SALSRP 

TS7 SCSTRT 

IS7 10 

JMP HSAL8L 

ISl LKSTRT 

LAC ACSTRT 

CMA 

DAC ACSTRT 

SPA 

JMP HSAL844 

JMS 8WTCH8 

HSALS 

JMP LL8TS1 



/Mfl ALTERNATES 
/FROM 1 'S TO 0»S 

/I TO 18 PLACES 



/Sc QO TO ZERO? 

/WAS LTNK ALTERED 
/RpSULT Or SHIFT OK? 



/EwEN PASSES MO ■ 7777T7 

/INflREMgNT COUNT 
/ADVANCE RESULT PoInTER 
/FnR TYPEfiUTS 8c*1 
/SHIFT 18 TIMES? 

/Nfl BIT Pass l ■ i 

/2MD PASS AC STRT«777776 

/M&DE 9 PASSES? 
/Nft# SHIFT NO BIT 
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/ALS iNSTRlJCTinN 
/COMMON PRROR TYPEnUT 



ALSFPR, 


JMP . 




JMS FRRQR 




TYALS 




SCSTrT 740i7ikJ(!) 




AUSERW 40(?)0fe30 




WDR5 




t.KSTRT 5!fl0«k)W 




ACSTRT 60Plf^00 




MOSTRT 6M00k)fe3 




TYPATR 




1 KfUND «50000fc) 




ACFNn A0000W 




TYRES 




TYLAnS 




SCPNn 740000 




i/J 

JMP I AL9FRR 



/SiMULATr AL«! nPPRATlOW 
/STfiRCS SHIFTS 1 In 18 PLACES 



simals# 


JMP 


• 




LAW 


rfsult-i 




HAC 


17 




DAH 


15 




TAn 


RIT17 




nAC 


SAlSRP 




LAC 


K1 P 




DAC 


16 




LAC 


LKSTRT 




RAR 






LAC 


AC«5TRT 




RAL 






DAC 


I 17 




IS? 


16 




LAC 


LKSTRT 




RAR 






LAC 


T 15 




RAL 






DAC 


I 17 




IS7 


16 




JMP 


.-6 




JMP 


I sImals 


SALSRPi 







RESUIT» 







RESULT*22/ 


/RESERVE 17 



/SPT RESULT POINTER TO START 



SHIFT LOCAdAENS 



ENDSHF, 



COMMA, 
START 



LAS 




AND 


BIT6 


SNA 




JMP 


,*'h 


LAW 


19 


TY1 




IS7 


CHARK 


JMP 


.♦4 


JMS 


crlf 


LAC 


NBTT16 


DAC 


CHARK 


LAS 




AND 


B1T5 


SNA 




JMP 


9CT076 


JMP 


RANSHr 


354 
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/Comma at End? 

/Nfl 



/Cycle both TfSTs 

/NO, STAY IN SWIFT TEST 

/RfPEAT From setup test 
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/ILS AND LRS BASin TESTS 

/lAPp 4 OF eae Pnp7 Test 



/lomq left swirT 



/LLS 01 


ALL ZFRO'S 




Lt-STSl, 


nZH AC«5T«T 
DZm mqSTRT 

nZM lkstrt 

1 AC R1T17 
DAC SCSTRT 






CLm 


/START SCOPE 1 OOP 




CLA CLL-OPP 


/ci R AC And Link 




LIB 7\] 






DAC ACEND 






nLK 






DAC LKENO 






I.ACS 






DAC SCEND 






lacq 






DAC MQ^NO 






SNA 


/Mn STILL 0»S? 




LAC ACEND 






<^NA 


/AC STILL 0»St 




LAC LKENO 






SNA 


/LINK STILL 013? 




1 AC SCEND 






SNA 


/Sfl GO TO ZERO? 




JMP ,+? 






JMS LLSERR 






JMS SWTTCM 






LLSTS1*5 
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/DOES LTNK 


GO TO MQ17 OM A 


ySJ-gi; i»p). 


0-1, 1-1 


LI-ST92, 


DZM MOSTRT 




nZM acsTrt 




nZM LKSTRT 




1 AC BIT17 




DAC SCSTrT 




lac mortrt 




1. MO 




LAC LKC5TRT 




RAR 




LAC ACSTRT 




LLS !?!1 




DAC ACEND 




RLK 




DAC LKEND 




LACS 




DAC SCENO 




LACQ 




DAC MQEND 




LAC LKSTRT 




RAR 




lac MQSTRT 




RAl 




sad MQEND 




8KP 




JMS LLS£RR 




JM8 SWITCH 




LL8TS2*5 




LAC LKSTRT 




IS7 LKSTRT 




SNA 




JMP LLSTS2+5 




DZM LKSTRT 




LAC MQSTRT 




IS7 MQSTRT 




SNA 




JMP LL8T82*S 



LLS 



/LIS 01 

/2 PASSES ■ START SCOPE LOOP 
/2 PASSES « 1 tMQl7) 

/L«1 EVERY 2N0 PASS 
/An ALWAYS ■ « 

/SAVE Results 



/END SCOPE LOOP 



/2mD or 4TH Pass? 
/npxt pass U • 

/MADE WITM M0l7«1f 
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/DOES LINK NOT GO TO AC17 ON AN 
/DOES MQ0 SO To AC17 ON AN LLS 



LLS 



llsact# 



ACSTRT 
MQSTRT 

lkstrt 

HIT17 
SCSTRT 

MOSTRT 



ACSTRT 

PJ1 

ACCND 



DZM 

D2M 

nzM 

LAC 

DAC 

LAC 

LMQ 

LAC LKSTRT 

RAR 

I AC 

LLS 

DAC 

5LK 

DAC LKCND 

LACS 

DAC 5CEN0 

LACQ 

DAC MQEND 

SAD LKSTRT 

SKP 

JMP 

LAC 

RAL 

LAC 

RAL 

SAD 

SKP 

JMS 

JMS 



.*7 

MOSTRT 

ACSTRT 
ACEND 



LLSERR 
SWITCH 

LLSAnT*5 

LAC LKSTRT 

TS7 LKSTRT 

SNA 

JMP 

DZM 

I AC 

TS7 

SNA 

JMP 

DZM 

LAC 

SAD 

JMP 

DAC 

JMP 

JMS 



LLSACT*5 
LKSTRT 
ACSTRT 
ACSTRT 

LLSACT+5 
ACSTRT 
RIT0 
MQSTRT 

WQSTRT 
LLSACT+5 

SWTCHS 



/START SCOPE LOOP 



/L>0# W 0< 1 
/ARa0i 0« 1« 1 



/SAvE SC FOR TYPEOUT 

/MQ FOR TyPEOUT 
/LTNK TO MQ17? 
/VrS^ OK 
/MO ERROR , 



/AO0 SHoUlD be > HQ0 



/L>0#1*0« 1<0* 1< 0« 1 



/AC0 ■ 0# 0« 1 « 1 . 0# 0» 1 « 1 



/TpSTED MO0 ■ j? 
/YF8 

/Mfl0 « 0# 4 Passes 

/«?, 4 PASSES 



LLSTS1 



/wiLi Each btT of the mq shift Te thf next 

/1-0J AMD 0"? LEFT 



LLSTS3, 



LAC 


BIT17 


DAC 


MOSTRT 


DAC 


SCSTRT 


DZM 


lkstrt 


DZM 


acstrt 


LAC 


MQSTRT 


LMQ 




CLA 


CLL-OPR 


LLS 


01 


DAC 


ACENO 


QLK 




DAC 


LKEND 


LACS 


DAC 


8CEN0 


LACQ 


DAC 


MQEND 


LAC 


MOSTRT 


RAL 




SAD 


MQEND 


SKP 




JMP 


.+5 


LAC 


ACSTRT 


RAL 




SAD 


ACEND 


v^VjMP 


.♦2 


LLSERR 


y^ . vJM9 


SWITCH 



l^ "> LLST83+5 

LAC MOSTRT 
CLL RAL-OPR 
DAC MOSTRT 

SNL 

JMP LLSTS3+5 
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/START mQ 17 TO MQ 16 



/START SCOPE LOOP 
/AC AND L ALWaVS 0'S 

/FOR TYpEoUTS 
/FOR TYPEoUTS 



/END SCflPE 
/SFT UP NEXT mQ BfT 

/TiSTEO MQ0 • ! 
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/WILL Each btT of the mq shift to thp next 

/1-r, 0-1 » U0 LFFT 

LLSTS4* LAC MBTT17 /START 77?776 

DAC MQgTRT 
CMA 

DAR SCSTRT /Ll S 01 

DAd LK8TRT /LTNK ALWAYS ■ 1 

CLC 

DAC ACSTRT /Afl " 1 'S ALL 

LAC MQSTRT /START SCoPE LOoP 

LMO 

STL CLC"OPR 
LLS ?I1 
DAC ACEND 
BLK 

DAC LKENO /L» FOR TyPEOUT 

LACS 

DAC SCEND /8C FOR TyPEOUT 

LACQ 

DAC MQEND 

LAC MOSTRT /simulate LLS 

STL /Tn GET 

RAL /Compare oonstant 

SAD MQFNO /MQ SHIfT OKf 

SKP /YfS 

JMP ,+5 

LAC ACSTRT 

RAL 

SAD ACEND /AC SHlpT OK? 

vJMP ,*? 

JMS LLSERR 

JMS SWITCH /END SCqPE 

LLSTS4*7 

STL 

LAC MQSTRT 

RAL 

DAC MOSTRT 

SZL /TESTED MQ0 ■ 

JMP LLSTS4+7 

vJMS SWTCHS 

LLSTS3 



/WILL MQ AC SHIFT A 1 SIT 1 TO 44 PLaCES 
i4l8ei LLl 6 Nl?D 



LLSTS5* 



LLSSL1« 



llssfx* 



DZM ACSTRT 
lac BIT17 
DAC SCSTRT 

DAC MQSlRT 

DAC LK8TRT 

DAC MQCOMK 

DZM ACCOMK 

LAC KLLSSI 

DAC LLSSEX 

LAC MQCOMK 

CLL RAL-OPR 

DAC MQCOMK 

LAC ACCOMK 

RAL 

DAC ACCOMK 

LAC MQSTRT 

LMQ 

STL CLA-OPR 

LLSS 01 

DAC ACENO 

LACS 

DAC SCEND 

f3LK 

DAC LKEND 

LACQ 

DAC MQITNO 

SAD MQCOMK 

SKP 

JMP .+4 

LAC ACCOMK 

SAD ACEND 

SKP 

vJMP .♦6 

LAC LKPND 

SNA 

LAC SCEND 

SNA 

JMP .f? 

JMS LLSSER 

JM5 SWITCH 

LLSSEX-3 

ISZ LLSSEX 

IS7 SCSTRT 

LAC SCSTRT 

yOR F0UR5 

SZA 

jMP LL8S1.1 

JMS SWTCMS 

LLSTS5 
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/AC START ZEROS 



/Se INCREMENTED To 44 
/MfD START BIT 17 ■ 1 



/RrSET SHIFT TO 1 



/START SCOPE LOqP 



/Sf» 



1 TO 44 



/LINK QO TO 
/SC END « 

/END SCOPE LOOP 
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/WILL MQ AC fiHlFT A MO BIT 1 TO 44 Pi ACES 



LL.ST96# 



LLSSL2# 



LLSSX2# 



DZM LKSTRT 

LAC R!Tt7 

DAC SCSTRT 

CMA 

DAC M08TRT 

DAC MQCOMk 

CLC 

DAC ACSTRT 

DAC ACCOMK 

LAC KLLSSI 

DAC LLSSX? 

LAC MQCOMK 

STL 

RAL 

DAC MQCOMK 

LAC ACCOMK 

PAL 

DAC ACCOMK 

LAC MOSTRT 

LMQ 

CLL CLC-OPR 

LLSS 01 

DAC ACEND 

LACS 

DAC SCEND 

SLK 

DAC LKEND 

LACQ 

DAC MQEND 

SAD MQCOMK 

SKP 

JMP ,+4 

LAC ACCOMK 

SAD ACEND 

SKP 

vjMP .+4 

LAC LKEND 

SAD BIT17 

SKP 

JMP ,+4 

LAC 8CEND 

SNA 

SKP 

JMS LLSSER 

vJMS SWITCH 

LLSSy2-3 

TS7 LL9SX? 

TS7 SCSTRT 

LAC SCSTrT 

yOR roi)R5 

SZA 

JMP LL9SL2 

JMS SWTCHS 

LLST86 

JMP LRSTSI 



/Ff^RM AC 

/AND MO 

/CftMPARE B0N8TANT9 



/SET UP SHIFT START SCOPE LOOP 



/Sc«1 TO 44 Pi ACES 



/GET sc For test 4 
/LINK Should be i 



/Mn SHIFT OK? 



/AC SHipT OK? 



/LINK SrT TO 1? 



/Sc QO TO 0? 



/ADVANCE TO NfXT SHiFT 



/SHIFTED 44 PLACES? 



/RFPEAT SEQUENCE S^T? 
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/COMMON ERROR TYPEOUT LL8 



LUSERR, 



KLLSS1 



JMP . 




JMS ERROR 


TYLLS 




SCSTRT 


740000 


LLSERR 


400000 


MDR5 




LKSTRT 


300000 


ACSTRT 


600000 


MQSTRT 


600000 


TYPATR 




LKEND 


^00000 


ACENn 


600000 


MQENn 


600000 


TYRES 




TYLACS 




SCENn 
JMP 1 


740000 


LLSERR 


LLSS 01 



/To Set Up loniq lpft shifts 



/COMMON ERROR TYPEOUT 
/LL8 SISNED 



LLSSFR* 



JMP . 

JMS fr 

TYLLS 

SCSTR 

LLSSE 

HDR5 

LK8TR 

ACSTR 

mqstr 

TYPAT 

SPACE 

ACCOM 

MQCOM 

TYCOR 

LKEND 

ACENO 

MQEND 

TYiNn 

TYLAC 

SCEND 



JMP I 



RROR 

S 

T 740000 

R 400000 



300000 
600000 
600000 



600000 
600000 

•$00000 
600000 
600000 



740000 
LL8SER 
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/L0,\|f5 Blf5HT qHlFT 
/LRS 01 AC# mQ and 



0tS 



L«ST^1 # 



OZM ACSTRT 

nZM MQSTRT 

nZM LKSTRT 

LAC BIT 17 

DAC SCSTRT 

niQ 

CLA CLL-OPR 

LRS ^^ 

DAC ACEND 

RLK 

DAC LKPNO 

LACS 

DAC SCEND 

LACQ 

DAC MOPND 

SNA 

LAC ACEND 

SNA 

LAC SCCND 

SNA 

LAC LKENO 

SNA 

SKP 

JMS LRSERR 

JMS SWITCH 

LRSTSU5 



/SrT INITIAL CONDITIONS 



/8TART SCOPE [OOP 



/MO SHOULD BE 

/Ae«0? 

/Sfl QO TO 0? 
/LtNK still 0» 



/END SCOPE 
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/DOES LIMK Go TO AC ^ ON AN LRS 



LRSTS2, 



DZm mQsTRT 

nZM acsTrt 

nZM LKST«T 

LAn BIT17 

DAC SCSTRT 

LAC LKSTRT 

RAR 

CLO 

LAC ACqTRT 

LRS 01 

DAC ACEND 

LACQ 

DAC MQENO 

LACS 

DAC SCEND 

QLK 

DAC LKCND 

SAD LKSTRT 

SKP 

vJMP . + 12 

LAC MQEND 

SZA 

.JMP .+7 

LAC LKSTRT 

RAR 

LAC ACSTRT 

RAR 

SAD ACEND 

SKP 

JM8 LRSERR 

.IMS SWITCH 

LRSTS2+5 

LAC LKSTRT 

IS? LKSTRT 

SNA 

JMP LRSTS2+5 

DZM LKSTRT 

LAC PIT0 

SAD ACSTRT 

JMP .+3 

DAC ACSTRT 

JMP LRSTS3+5 



/START gCoPE LOOP 

/SET UP COMPLETE 
/8A\yE RESULTS 



/LINK SHOULD NOT CHANGE 



/END SCOPE 
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/DOES ACl7 Gft 


TO MQ0 ON AN LRS 




/a-0'. U0# 0- 


}» AND 1-1 




LRSTS3* 


DZM 


LKSTRT 


/LINK ALWAYS 




DZM 


MQSTRT 






DZM 


ACSTRT 






LAC 


RIT17 


/SHIFT ftp 1 




DAC 


scstrt 






CLL 








LAC 


mqsTRT 


/SrT Mf3 




LMQ 








1 AC 


acsTrt 






LRS 


911 






DAC 


ACENO 






f?LK 








DAC 


LKEND 






I ACS 






DAC 


SCEND 






1 ACQ 






DAC 


MfDEND 






LAC 


ACSTRT 


/GENERATE MQ 




RAR 




/CnMPARE 




LAC 


MuSTRT 


/CONSTANT 




RAR 








SAD 


MQEND 


/ACl7 TO MQ 




SKP 








J.MP 


.+3 






LAC 


ACENO 






SZA 




/An QO TO 0? 




JMP 


.+4 






LAC 


LKEND 






SNA 








SKP 








JMS 


LRS£RR 






JMS 


swtTcw 






1 RSTS3*5 






1 AC 


ACSTRT 






TS7 


ACSTRT 






SNA 








JMP 


LRSTS3+5 






LAC 


RITI2 






DZM 


ACSTRT 






SAD 


MQSTRT 






JMP 


.+3 






DAC 


HOSTRT 






JMP 


LRSTS3+5 
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/UOES ACi; NOT GO TO LINK ON AN lRS 



URSTS^ 



nZM 


lksTrt 


DZM 


ACSTRT 


DZm 


MOSTRT 


1 An 


RIT17 


DAC 


SCSTRT 


HLO 




LAC 


LKSTRT 


RAR 




LAC 


ACsTRT 


1 RS 


Pit 


DAC 


ACEND 


LACS 


DAC 


SCEND 


LACQ 


DAC 


MQfTND 


(5LK 




DAC 


LKPND 


SAD 


LKSTRT 


SKP 




JM5 


LRSERR 


JMS 


SWITCW 


1 RSTS4*5 


LAC 


LKSTRT 


TS7 


LKSTRT 


SNA 




JMP 


LRSTS4*5 


DZM 


LKSTRT 


1 AC 


ACSTRT 


TS7 


ACSTRT 


SNA 




JMP 


LRST94+5 


JMS 


SWTCHS 



/Mfl ALWAYS ZERO 

/smift of 1 



/SrT LTNK INITIAL OR 1 
/An"1 OR 7i 



/WAS LINK ALTERED 



/TF8TED L«1? 
/Nft 



/TfSTED AC 17«» 



RST81 
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/Wlu AC MQ ^HtFT 4 1 i^TT EACH POSlTfON RIGHT 



LHSTS5* 


nzM 


1 K^tTPT 




n7M 


M C? f P J 




nz^ 


M f,i n Q M K 




L AC 


RITI 7 




DAn 


<5C«?TRT 




I AC 


PITfej 




DAC 


ACSTRT 




PAC 


ACCO^K 




t AC 


ACCUMK 




nil. 


RAR-OPR 




DAC 


ACCUMK 




I. AC 


MOCU^K 




PAR 






HAC 


MOCOMK 


LHST«iL* 


I AC 
CLL 


M Q c T P T 




LAC 


acqtrt 




LRS 


?)1 




DAC 


ACFND 




RLK 






DAO 


LKFNO 




LACS 




nAC 


«?CPND 




lACQ 




DAC 


M Q f: N n 




RAO 


MQCOMK 




SKP 






JMP 


.♦4 




LAC 


ACCOMK 




RAn 


ACCND 




9KP 






V.I ^' « 


LRCiEPR 




JMS 


RWTTCH 




LR<?T«5L 




1 AC 


AQCiTRT 




CLL 


RAR-npR 




DAC 


ACSTRT 




LAC 


MQSTPT 




PAR 






DAC 


MO^TRT 




SNL 






JMP 


LR?!T9L«6 




JMR 


SWTCHS 




1 RSTSS 



/qpnerate compare 
/Constants 



/Hfi SHIFT OK? 



/AC SHIFT OKt 
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/WILL AC-MQ qHiFT A mO 
/RIQMT FROM FACH BIT 



BIT 1 POSITIOM 



LKSTS6# 



LRSTiSL* 



LAC 9 

HAT S 

HAr L 

LAC M 

DAr A 

DAr A 

HAH M 
DAr M 
LAH A 
fill 
RAP 
HAC A 
LAC M 
RAR 
HAH M 
LAH M 
LMO 

STL 
LAH A 
LR*! W 
DAr A 
LAnS 
DAC 5 
RLK 
DAr, L 
LAr-Q 
DAT M 
SAn M 
SKP 
JMP . 
LAr A 
SAD A 
8KP 
JMS L 
JMS S 
LRSTA 
LAC A 
STL 
RAR 
DAC A 
LAC M 
RAR 
DAC M 
SZL 
JMP L 
JMS S 
LRSTS 



IT17 

C«5TRT 

KSTRT 

BlTr^ 

csTrt 

gcomk 

QSTRT 

QCOMK 

cnOMK 



cnOMK 

QCO^K 

OCOMK 
Q<sTPT 



cstrt 

1 

crND 

CFND 

KFND 

OFND 
U'COMK 

+ 4 

CCOMK 

CENO 

RSERR 
WITCH 
L 
CSTRT 



CSTRT 
OSTRT 

QSTRT 

RgTftL-7 

WTCHS 

6 



niiiii 



/qpnerate next 

/SrT OF 

/An MQ COMPARr 

/Constants 



/SrT UP LI 



/FOR TYPEOUTS 
/FOR TYPEoUTS 



/Mft SHIFT OK? 



/AC SHIFT OK? 



/Swifted till mqi7«0 
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/WILL AC MQ fiHiFT A 

/RlQHT TH 44 Places 



LRSTS7# 



1 BIT 



L«ST7L* 



LR8T7E, 



nZM MD9TRT 




nZM lk^trt 




LAC PIT17 




HAf: gC<?TRT 




LAC BITK) 




DAC ACCTPT 




DAn ACCOMK 




D2M MQrOMK 




LAH LRST6L+^ 


/LRS 01 


HAr LRRT7C 


/FnR EXECUTE 


I.AH ACnOMK 




CLL RAR-OPR 


/gfnerate ac/mq 


OAf! ACCOMK 


/COMPARE CONSTANTS 


LAC MOCOMK 




RAR 




DAC MOCO^K 




LAC MQSTRT 


/SrT UP lrS 


LMQ 




CLL 




LAC ACSTRT 




I.RS 01 


/I TO 44 pLACrS 


TAC ACEND. 




(9LK 




DAC LKENn 




LACS 




DAC SCEND 




LACQ 




DAC MOEND 




SAD MQcOMk 


/Mrs SHIFT OK? 


SKP 




JMP ,+4 




LAC ACCOMK 




SAD ACCND 


/AC END Ok? 


8KP 




JMS LRRERl 




JMS SWITCH 




LRST7E-4 




IS7 LRST7E 


/Increment shift count 


TSZ SCSTRT 


/FnR TYPEoUTS 


LAC F0UR5 




SAD SCSTRT 


/SHIFTED 44 Places? 


SKP 


/YfS 


vJMP LRST7L 




JMS SWTCH8 





LR8TS7 
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/WILL AC MQ RHtFT A MO BTT RIGHT 
/1 TH 44 PLAn£s 



LRSTS8, 



LRST^L. 



lRST8£, 



PLC 

nAC mortrt 

nAr MQCOMK 

LAC MBITI? 

HAC AC^TRT 

nAC ACCOMK 

LAC RIT17 

DAC SCSfRT 

nAC LKSTRT 

LAC LRST6L+4 

DAC LRSTflC 

LAC ACCOMK 

STL 

RAP 

DAC ACCOMK 

LAC MQCUMK 

PAR 

nAC MOCOMK 

LAC MQSTRT 

LMO 

LAC ACSTPT 

STL 

LRS 7\\ 

DAC ACEND 

RLK 

DAC LKf-ND 

LACS 

DAC SCENH 

LACQ 

DAC MQPND 

SAD MQCOMK 

SKP 

JMP .+4 

LAC ACCOMK 

SAD ACEND 

SKP 

JMS LRSERl 

JMR SWITCH 

LR8TftC«4 

IS7 LRSTflE 

TS7 9CSTRT 

LAC F0IJR5 

SAD SCSTRT 

SKP 

JMP LRST8L 

JMS 8WTCH8 

LRSTS8 



/MQ START ■ 1 ts 
/AC START BIT e*** 



/LRS 01 
/FnR EyECUTE 

/QEkiERAt^ 

/NrXT 

/CnMPARE CONSTANTS 



/9rT UP Lr8 



/I TO 44 PLACES 



/Mft SHIFT OK? 



/AC SHIPT OKf 



/AnVANCE SHIFT 
<Cf^UNT 

'SHIFTED 44 PLACES 
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/WiLl MQ SMIfT LFFT 1 
/EVERY COMftlNiATION OF ^ITS 



LLSSFQ* 



dZm 


M Q S T R T 


nZM 


4C9TPT 


1 AC 


RIT17 


riAr 


<?CSTm 


nZM 


I.KcTPT 


LAr 


MORTRT 


FAr 


!?0!')k30 


PAi 




DAT 


ACCOmk 


nAr 


MQHOMk 


LAr 


mosTrt 


LMO 




LLSS 01 


nAn 


ACFND 


I.ACS 


DAC 


BCFNn 


f^LK 




DAC 


lkfnd 


1 ACQ 


DAC 


MQFND 


sAn 


ACFNO 


RKP 




vJMS 


LLSSFR 


JM«? 


SWITCH 


I.LSSFQ + 5 


TS7 


ACSTPT 


MOP 




!S7 


MQSTRT 


JMP 


LLSSECl + 5 


JMS 


SWTCMS 


LLSSFQ 



/Art ANn MO WILL 
/Ai WAYS Be ■ 

/Swift is always i 



/AC SHOULD 
/■HO 



/Mffi ANn 

/Ar SHIFT OK 
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/WILL MQ SWijrT RIGHT 1 EVERY 
/COmrINaTION Op RITS 



URSSf^Q. 



nzM 
nZM 

I.AC 

DAC 

LAC 

AND 

DAC 

PAP 

LAC 

PAR 

DAC 

DAC 

PAL 

LMQ 

LRS 

DAC 

LACS 

DAC 

OLK 

DAC 

LACQ 

DAC 

SAD 

8KP 

JMS 

JMS 

LRSS 

TSZ 

NOP 

IS2 

JMP 

JMS 

.R9S 

JMP 



/Ai'WAYS SwIFT OF \ 



AC^TPT /AC And MQ 

mqstrt /ai ways ■ 

BlTl7 

scstrt 
acstpt 

PIT17 

LK8TRT /LtNK ■ AC l7 

/SO THAT AC WILL ■ MQ 

MQSTPT 



mqcOmk 

ACCOMK 



ACFND 

fSCEND 

LKEND 

MQFND 
ACEND 

LPSERl 
SWITCH 
FQ + 4 
ACSTRT 

MOSTPT 

LRSSEQ+4 

gWTCHS 

FQ 

FNDSHF 



/AC AND MQ 
/SuOUUD Be ■ 



/AC AND MQ R 1 OK 



/Al L COMBINATIONS 
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/LRS COMMON fRROR TYPEOUT 
/SHIFT OF 1 



lRSerr, 



JMP . 

JMS PRPOR 

TYI RS 

SCSTPT ;40(?0k) 

LR5ERR 40000fe) 

WDR5 

LKSTrT 500'?)l3k) 

ACSTRT 6i^00i4W 

MQSTrT 6^000fcJ 

TYPATR 

LKPMH ^0(?!0'?i0 

ACFNn fk300(1i^ 

MQFNn ft0&»0(?)(i3 

TYRES 

TYI. ACS 

SCFNn 7400(^0 



vJMP I uRRERH 
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/uRs commom tHrop TyPE-OUT 

/SWfFTS OF MoRF THAN! 1 



lRscp^i* 


JHP . 






,IM«, FRPOR 




TYi RS 






SCSTPT 


7«0i:^k3k3 




1 R9EP1 


4 v?i f^ ^? a fc3 




WDP5 






1 K«;T0T 


5/)0^:;i0k3 




ac«;Trt 


6 1^ c? id k) 




MQcjTPT 


6i5i^'5^0i^ 




TYPATw 






SPACF4. 






ACCOMk 


6 '^ M fc3 




MQCOMk 


6v10t^wW 




TYHOP 






1 KFNH ' 


B? C^i Pi 1^ 




ACCNn 


A43!?!0P!1^ 




MQFNn ^ 


^0^0.70 




TYTNirO 






TYI AHS 






SCFNH ■ 
v.iMP T 


74i«0.7(0 




LHRERI 


ACCO^^Kj 


^ 




MUCqmk, 







SCCOMK, 


PI 





SIART 
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10.4.4 Random Data, Normalize, and Interrupt Test 

/TAPF 5 

/HAVinOM DATA ^MIFTR 
/N0R^ALT7E TPbT 
/INTERRUPT TrST 



5i^00/ 



LAC MBTT16 

DAC CHARk /set PAsS K TO -3 



/START RAMDOm DATA SWlFT«? 
/LEFT TO 44 PLACFS 



ranswf 



SETl! S, 



LAC MRTT5 




DAC PASS* 




JMS RAMCsEM 




DAC wQSTRT 




jMS PAMtaEM 


/GPNERATE 


DAC SHFBUF 




LAW RHFBUF 




DAC 10 




TAD RIT17 




DAC 1 1 




LAC MO??TRT 




LMD 




DAC T 163 




LAC RNFbUF 




DAC ACrTRT 




LLSS (M 




DAC T 11^ 




LACO 




DAC T 11^ 




LAC I 11 




TS7 1 1 




LLS 01 




DAC ! 10 




LACQ 




DAC T 10 




LAW SHFeUF+1 1 1 




SAD It", 


/SHIFTED 


SKP 




JMP SETLLS 




QLK 




DAC LKSTRT 




D2M SC??TRT 




LAC KLLSS 




DAC LRANEX 




LAW SHFBUF-1 




DAC 1 





AC iTART 



44 PLACEi? 
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TO 



lhamlp. 


LAC T 10 




DAn ACCOMK 




lAC I lid 




DAC MQCQMX 




LAC HQC?TRT 




t M Q 




LAC Lk«^TRT 




RAP 




1 AC ACsTi^T 


LRampx* 


LLSS 




DAC ACFlNn 




GLX 




DAC LKI?:Nfi 




LACS 




DAC <?CFND 




LACQ 




r3AC MDEMD 




<?An MQCQMK 




??Ko 




JMP .+4 




lAr ACCOMK 




«5An ACEND 




«?KP 




jMe; llsse:» 




JM9 SWITCH 




LRArNlLP + 4 




IS7 LRAIMEX 




TS7 «5CSTRT 




LAC FOUR 5 




SAD SC«?T«T 




SKo 




vJMP LRflNLP 




JMq SWTCMS 




RAmSMF+6 


RLST*Y# 


TS7 PASSK 




,_!MP RAMSHF + 2 



/0 TO 44 PLACES 



/Mn = PREDICTED? 



/AC ENID = PREDICTED? 



/SHIFTED 44 PLACES? 
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/RANinOM riATA 


Rtgmi 


' TO 44 P 


RANRtT* 


I A r 


MBIT5 




DAP 


PASSK 




JMC! 


RAMGENi 




DAH 


MQC?TPT 




JMc; 


RAMQFN 




HAC 


ACsTRT 




LAW 


shfbuf*i 




DAC 


10 




DAT 


1 1 




LAC 


AC«?TRT 




DAf 


T 10 




LAr 


MCSTRT 




HAr 


T 10 




LMQ 






CLL 




s£tlps# 


1 AC 
TS7 


I 11 

1 1 




LR? 


'^1 




DAr. 


I 10 




LACQ 




DAC 


T 10 




LAW 


SHFbUF*1 1 1 




!^An 


10 




SKP 






JMP 


SETLRS 




LAr 


KLPS 




DAC 


RRANCX 




nzM 


LK«!TttT 




DZM 


SCSTRT 




LAW 


SHPBUr-1 




DAC 


10 


RRAMI.P, 


LAC 


I 10 




DAC 


ACCOMK 




LAC 


I 10 




HAC 


MDCOMK 




LAC 


MQSTRT 




LMf3 






LAC 


ACSTRT 




CLL 




RRAMPX# 


LRS 


ffli 




nAC 


ACFND 




GLK 






nAC 


LKFND 




LACS 




DAC 


SCEND 




LACQ 




DAC 


MQFND 




??AD 


mqcomk 




SKP 






JMP 


.+4 




LAC 


ACCOMK 




SAD 


ACEND 




SKP 






JMS 


LRSERI 




JMS 


SWITCH 



PLACES 



/QPNERATE MQ sTARt 
/GENERATE AC8TRT 



/QrNERATE AC MO 
/COMPARE CONSTANTS 



/0 TO 44 PLAOirS 
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RRSTAY# 



RRANirx-4 
IS2 RRANCX 
IS7 SC«5TRT 
LAr P0l)R5 
SAD SCSTRT 
SKP 

JMP PRANLP 
JMR SWTCH9 
RAMRIT*6 
TS7 PASSK 
JMP RAMRIT+2 
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/RAMDOM DATA SpQiJEMnE'D 



RANSEQ* 



RANSQ0, 



lAr MBIT^ 
DAC PASSK 
JMS ramGEn 

DAC AHSTRT 

FAF 21P)I<!)0 

f5LK 

DAT SVSIGN 

RTR 

HAH SV'^IQN+I 

jM!? RANQEN 

AND MBTT17 

TAD SVSIQM 

DAn MOSTRT 

LAf NIBTT17 

DAT SVMASK 

LAC M8!T^ 

DAr 9VMASK+1 

DZM qcSTRT 

DZM LKSTRT 

LAC MQSTRT 

LMQ 

CLL 

LAC ACSTRT 

LLSS 1 

LPS ? 

LLSS 2 

LRS 1 

JMS SEQCCM 

JMS SWITCH 

RAMSfDC^ 

JMS WXTSfO 



/QEt AC SIQN CLR Ac 



/Make M0l7«ACfi!) 



/SrQUENCE 



/RIQMT 7» L4. R4. L2 



5^ZX3RAN8Q1, 



LAH MOSTRT 

LMO 

LAC ACSTRT 
LRSS 2 
LLSS 4 
LRS 4 
LLSS 2 
vJMS iSEQCOM 

jms switch 
ramSoi 
jms n^xtseq 
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/SfQUENlCe 1 R9« L4* R4; l7 
/SrT UP 



/CfiMPARE PII8ULT8 



/LEFT 3, RIGmT 6. 
/SEQUENCF 2 
RANSQ2# 



EFT 6, RIQHT 5 



LAC MQSTRT 

LMO 

CLL 

LAC ACSTRT 

LLSS 3 

LRS 6 

LLSS 6 

LRS :^ 

JMS SEnCOM 

JMS SWITCH 

RANSQ2 

JMS NXTSEO 
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/SEQUENCE 3 

/RIQMT 4. LEpT 8. RIGHT fl# LEFT 4 



RANIgOS, 



LAC MOSTRT 
CLL 
LMO 

LAC ACSTRT 
LRSS 4 
LLSS 1PI 
LRS 10 
LLSS 4 
v)MS REQCOM 
JMS SWITCH 
RAMSnS 
JMS NXTSEO 



/SEQUCNCF 4 LPFT 9, RIQHT 10# LEFT 70# RIQhT S 



RANS04« 



LAC MOSTRT 

CLL 

LMO 

LAC ACrTRT 

LLSS 5 • 

LRS 12 

LLSS 1? 

LRS "5 

JMS SEfJCOM 

JMS SWITCH 

RANSf54 

JMS NXTSEO 
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/SEQUENcr 5 Right 6, lfft 12# right i2i left 6 



RANSP!5# 



LAC MQSTRT 
LMQ 
CLL 

I.AC ACfiTRT 
I.RSS 6 
LL8S 14 
LR8 14 
LLSS 6 
JMS SEQCOM 
JMS SWITCH 
RAMSf35 
JMS MXTSEQ 



/SEOIlEMCe 6 t-FFT 7 RlQHT 14, LEFT U, RTGHt 7 

RANS^6# LAC MQsTrT 
I MQ 
CLL 

I AC ACSTRT 
LLSS 7 
LRS 16 
LLSS If 
LRS 7 

JMS SEQCOM 
JMS SWITCH 
RAMSQ6 
JMS MXTSPO 
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/SEQUENCE 7 

RAN8Q7, 



Right a, left \b, riqht i6# lErr 9 

LAC MQSTRT 
I..MQ 

LAC ACSTRT 
CLL 

LRSS IP! 
LL8S 20 
LRS ?0 
LLSS 1(? 
JMS SEOCOM 
JMS SWITCH 
RANS07 
JMS MyTSEQ 



/SEQUENCE 8 
RANgOSi 



LEFT 9. RIQHT 18, LEFT T8# RIQHT 9 

LAC MQSTRT 

LMQ 

LAC ACsTRT 

CLL 

LLSS 11 

LRS 22 

LLSS 22 

LRS 1 1 

JMS SEOCOM 

JMS SWITCH 

RANS08 

TS7 PASSK 

JMP RANSEQ+2 

JMS SWTCHS 

RANSEQ 

JMP NRMLZE 



/SET AC SIGN INTO NEXT AC 
/AND MQ BITS 
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NXTSfQ* 


JMP 


• 






LAC 


SVSIQN 






CLL 


RAL-OPR 






DAC 


SVSIQn 


/Tft FILL MQ 




I.AC 


SVSIQN+I 






CLL 


RAR-OPR 






DAC 


SVSIQN+1 






LAC 


SVMASK 






STL 








RAL 








DAC 


SVMASK 






AND 


MQSTRT 


/Cl R MQ B!T 




TAD 


SVSIQN 


/MAKE MQ ■ AC 




DAC 


mqsTRT 






LAC 


SVMASk+1 






STL 








PAR 








DAC 


SVMASk+1 






AND 


ACSTRT 


/Ci R AC BIT 




TAD 


SVSIQN+1 


/MAKE ACX ■ AC 




DAC 


ACSTRT 






IS7 


scstrt 


/ImDICaTE next 8 




JMP 


T NXTSEQ 




9V8I9N, 


(3 

01 






SVMASK, 
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/RAMDOM DATA SCQIJEWCED 
/COMMON COMPARE AND ERROR TYPE 

SEQCDM, JMP . 

DAC ACENO 



QLK 

DAC LKEND 

LACS 

DAC SCEND 

LACQ 

DAC MQEND 

SAD MQSTRT /Mfl SAME a8 StART 

f?KP 

JMP .+3 /ERROR MQ 

LAC SCENO 

8ZA 

JMP .+4 /ERROR SC 

LAC ACSTRT 

SAD ACEND 

SKP 

JMP ,*3 /ERROR AC 

EAE glC^ia^ /QEt AC SiQN CLR AC 

flLK 

SAD LKEND /LINK EnD ■ AC SIQN? 

JMP I SEOCOM /ALU OK • EXIT 

JMS ERROR 

TYRDSQ 

SPACES 

SCSTRT 740000 

SEQCOM 400000 

HDR5 

LKSTrT 500000 

ACSTRT 600000 

MOSTrT 600000 

TYSTRT 

LKEND 900000 

ACEND 60001^0 

MQEND ^00000 

TYRES 

TYLACS 
SCEND 740000 



JMP I sEOCOM /ERROR EXfT 
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/Rampom numbsR qcncrator 

/18 f^lT 

RANQFN, JMP , 





LAC RANNO 




CLL RAR-OPR 




SZL 




XOR flITia 




yOR RANNO+1 




ADD RANNO+l 




DAfi RANNO 




JMP I RANQEN 


RANMO, 


736425 




33f671 


PASSK« 


C9 


KURs; 


LRfi 


KLLSS, 


LL8S 


SHFBUF, 





SHF9UF+1 12/ 





/N0RMALI7E TpST 

/DOgS NORMS «IT AC » TO L 



NRML7E 



nZM morTrt 
OZM scsTrt 

LAn RITl 

DAC ACSTRT 

DZM LKSTRT 

LAr LKSTRT 

RAR 

CLO 

LAC ACSTRT 

NORMS -44 

DAC ACEND 

LA-CQ 

DAC MQEND 

LACS 

DAC SCEND 

SLK 

DZM SOCOMK 

DAC LKCND 

SZA 

JMS N0RM8F 

JMS SWITCH 

NRML7E:*5 

LAC LKSTRT 

IS7 LKSTRT 

SNA 

JMP NRMLZE*5 



/START SCoPt LOOP 



/fiC ■ 
/SAVS RESULTS 



/Ac SIQN iS 

/emd Scope loop 
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/DOfS NORMS fttT AC0B1 TO L 



nrmlti 



r.tn 




DAC 


MQ<?TRT 


nzM 


SCSTRT 


nZM 


lkrTrt 


CLC 




DAC 


ACSTRT 


LAH 


lk?trt 


RAR 




LAC 


AC5TRT 


no 


4 


N0RM5? fi!!-44 


DAC 


ACEND 


I.ACQ 


DAC 


MQEND 


LACS 


DAC 


SCEND 


(3LK 




nzM 


8CC0MK 


DAC 


LKEND 


SNA 




JMS 


NORMS? 


JM8 


SWITCH 


MRML71+6 


LAC 


LKSTRT 


IS7 


LKSTRT 


SNA 




JMP 


NRMLZl+6 



/START SCOPE LOOP 



/SfT MQ « 1 tS 



/END SCOPE UOOP 
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/WILL NORM STOP SHIFT WITH 

/AC Pi AMD AC 1 UNEQUAL? 01. 10 

NRMl?S# nZM MQSTRT 
DZM LKSTRT 



LAC SEVSEV 

DAC 8CC0MK 

LAC BITI 

DAC ACSTRT 

LAC BIT17 

DAC SCSTRT 

LAC MQ8TRT /START SCOPE uOOP 

LMO 

CLL 

LAC AC8TRT /SfT UP COMPLETE 

NORM •43 /Sr> ■ 1 

DAC ACEND 

LACQ 

DAC MQEND /SAVE RlpSulTS 

QLK 

DAC LKEND 

LACS 

DAC SCEND 

SAD SEVSEV /Sf! ■ '1? 

SKP 

JMS NORMER 

jMs SWITCH /End scope loop 

NRML72+10 

LAC AC8TRT 

CMA 

DAC ACSTRT 

LAC HQSTRT 

CMA 

DAC MQSTRT 

8ZA 

JMP NRMLZ2*10 
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/00|8 NORM NoT STOP SHIFT 
/ON AC ■ Ani 00# 1 1 » 



NRMi 23, 



DZM 


MOSTRT 


DZM 


LKSTRT 


lac 


BlTl6 


DAC 


scstrt 


LAr 


SEVSEV 


DAC 


SCCOMK 


LAC 


BIT2 


DAC 


ACSTRT 


LAC 


MOSTRT 


LMO 




CLL 




LAP! 


ACSTRT 


NORMS -42 


DAC 


ACEND 


LACS 


DAC 


SCCND 


QLK 




DAC 


LKEND 


LACQ 


DAC 


MQPND 


SPA 




CMA 




SZA 




JMP 


.♦6 


LAC 


AC(?ND 


SPA 




CMA 




SAD 


I3IT1 


8KP 




JMP 


.*4 


LAC 


SCEND 


SAD 


SEV/SEV 


8KP 




JMS 


N0RM8E 


JMS 


SWITCH 


NRMU7C+6 


LAC 


ACSTRT 


CMA 




DAC 


ACSTRT 


LAC 


MOSTRT 


CMA 




DAC 


MQSTRT 


SZA 




JMP 


NRMLZ3+10 



/ No«MA| JzE 8C ■ 2 



/8TART SCOPE LOOP 



/CflMPLfTE SET UP 
/8Q « 2 



/SAVE RfBULTS 



/Mfl ■ ALL 0»8 OR ALL 1 »S 

/ERROR IN MO 

/An NEflATiVEt 

/Make POSlTlVf 

/An NORMALIZE CORRECTf 

/Ac IN ERROR 

/8C ■ -I? 

/End SCOPE LOOP 
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/WILL NORMALfZr NORMALIZE A POSITIVE 

/NUMBER WITH A 1 FROM AC BIT 1 TO Ml 17 WITH g0«44 aT START 

/AND A NESATtVe NUMBER WITH A0 IN Af! BIT 1 

/TO MQ 17 

NRMl24# 



nZM MQ8TRT 




02M LK9TRT 




LAC F0UR4 




DAC SC8TRT 




LAC BIT1 




DAC AC8TRT 




LAC THREE4 




DAC SCCOMK 


/TO COMPARE Se 


LAC MQBTRT 


/SCOPE LOOP START 


LMO 




CLL 




LAC AC8TRT 


/SpT UP COMPLETE 


NORMS 


/Sfl ■ 44 


DAC ACEND 




LACQ 




DAC MQEND 


/SAVE RESULTS 


fiLK 




DAC LKENO 




LACS 




DAC SCEND 




SAD SCCOMK 




SKP 




JMP .+6 


/8f!i ERROR 


LAC ACEND 




SPA 




CMA 




SAD BITl 




SKP 




JMP .+5 




LAC MQEND 




SPA 




CMA 




SZA 




JM8 NORMER 




JMS SWITCH 




NRMLZ44'10 




LAC MQSTRT 




LMO 




CLL 




LAC ACSTRT 




IS? SCCOMK 




LRSS 1 




DAC ACSTRT 




LACQ 




DAC MQSTRT 




SAD ACSTRT 


/AC AND MQ ■ fliS OP 1 'S 


SKP 


/EkiD 1 PASS 


JMP NRMLZ4410 




SZA 


/DflNE ALL IfS yETt 


JMP NRMLZ5 


/VPS 
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I AC NBITI 

DAC ACSTRT 

f!LC 

DAC MQSTRT 

JMP WRML?4*6 



/2ND SERIES 
/NfQATlVE NUMBERS 
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/WILL A COMPi EMENIT BTT PATTERN NORMAiiZE 
/MQ ■ 252525 AmD 535?52 AC ■ 0'S OR T»S 



NRM|,?5# 



DZM ACSTRT 

I AC COMBIT 

DAC MOgTRT 

LAC F0UR4 

DAC SCSTRT 

DZM LKSTRT 

I AC MQSTRT 

I MO 

CLL 

LAC ACSTRT 

NORMS 

DAC ACPND 

LACS 

DAC SCCND 

GLK 

DAC LKEND 

LACQ 

DAC MQEND 

SPA 

CMA 

SZA 

JMP .♦A 

LAC ACEND 

SAD MOSTRT 

SKP 

jMP .+4 

LAC FIVE6 

DAC SCCOMK 

SAD SCEND 

SKP 

JM8 N0RM8E 

JMS SWITCH 

WRML75+6 

CLC 

DAC ACSTRT 

LAC MQSTRT 

CMA 

DAC MQSTRT 

SPA 

JMP NRMLZ5*6 

JMS 8WTCH8 

NRML7E 

JMP INTE8T 



/212525 PATTERN 



/SflOPE LOOP Start 



/■ MQSTRT 
/AC ERROR 



/ACCND SHOULD 



/8c Indicate shift i8 



/EwD SCOPi LOOP 



/TFST REPfAT IIQUENCE 
/QD TO INTERRUPT TEST 
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/NORMALISE EPHOR TYPEOUTS 

NORmPR* JMP . 

JMS CRROR 



TYNORM 
SCSTBT 740000 

MORMfTR 400000 /Error address 

WDR5 

LKSTRT 500000 

ACSTrT 600000 

MQSTRT 600000 

TYPATR 

LKPND 900000 

ACEND A00000 

MQFND 600000 

TYRES 

TYLACS 

SCCOMK 740000 

TYCOP 

TYLACS 

SCENn 740000 

TYRES 



JMP I nORMER 



/NORMALIZE StQnED fvRROR TYPEOUTS 

NORMSE* JMP , 

JMS ERROR 

TYMRMS 

SCSTRT 740000 

MORMSE 400000 

MDR5 

LKSTRT 500000 

ACSTPT 600000 

MQSTRT 600000 

TYPATR 

LKEND 900000 

ACEND A00000 

MOrND 600000 

TYRES 

TYLACS 

SCCOMK 740000 

TYCOR 

TYLACS 

SCEND 740000 

TYRES 



JMP I MORMSE 






^306 



b3W If^TSI, 



/TEST PROQRAm INTERRUPT 
/AFTPR EAE OpERATIOMS 

iNTERTf TSr 
SKP 

JMP .+4 
LAW ?l 
TLR 

TSP ^ --^^ 

JMP ..1 
LAC (JMP INlTSI 

nAC, 1 

ION 

FAF^^ 
IQP ' 
-" \^M«5 FRROR 
TYINTE 
TYNOP 

{,mb) 4000^0 
7i 

TSF 
JMP .»1 
JMS SWITCH 
INTEfiT+l 1 
L'An RIT17 
DAC MOSTRT 
OZM Af!5TRT 
DZM LKSTRT 
LAC F0UR3 
-siSAfg^CSj^Tl 

DAC 1 
INTSSL. LAC MQ«?TRT 
LMO 

CLA CLL-OPR 
ION 

LIS 43 
f T f '1) F^i <M 1 T " 3 '^ ¥ ? '"* 
JMS ERROR 
/TYINTE 
CYSJ TYLLS 

SCSTRT 740000 

(.•6) 400000 



JMP INTS2E 



/PRINTER FLcAlili 

/Nft nmov; ^40 

/T9PE WVlA DA ^ 
/Wait PfJl^BfAfLAQ 



/LflAD rlLNfo^MrPA j 
/SwOUU^}.^t^ ^fifiT HERE 



/(^ffl^RTSTsaM 



/PREPARE* fiiT^ts 

T ?* 3 T 1^ ! 

/EyEOUTIrjff fw^ 
/SHOULD NOT Hif HERE 
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INTS2. 



INT89e« 



DAC ACEND 

LACS 

nAC SCEND 

LACO 

DAC MQPND 

SZA 

JMP ,+4 

LAC ACEND 

SAD RIT0 

SKP 

JMP ,+4 

LAC SCENO 

SNA 

JMP TNTS2E 

JMS ERROR 

INDAT 

TYLLS 

SCStRT 740000 

HDP5 

LKSTRT 500000 

ACSTOT 600000 

MOSTRT 600000 

TYPATR 

LKSTRT 500000 

ACEND «00000 

MQENn 600000 

tylacs 

SCEND 740000 


tse 

JMP ,»1 

JMS SWITCH 

!NTS3L 

JMS 8WTCHS 

INTEST 

LAS 

AND 8IT6 

SNA 

viMP ,+4 

LAW 13 

TYI 

IS? CHARK 

JMP .*4 

JMS CRLF 

LAC NBIT16 

DAC CHARK 

LAS 

AND BIT5 

SNA 

JMP RAN8HF 

JMP NOPAC 



/8AvE RESULTS 



/Mfl SHIFT OKt 
/AC SHIFT OKt 



/SO QO TO 0t 



/WAIT IN QASe OF 
/ERROR TYREOUt 



/TVRE AT END SET? 



/OyCLE ALL TESTS 

/•Tt 

/Nn« STAY IN RANDOMS 

/START SET UP TEST 



START 



I , fv^.i tap« in vis RIM starts 

2«. Bmt l/Q TRAP ©witch t© a one, 

3* fr®;^s continue 6 

4... Pre --Tarn will m^ mt final M/r ^ri^feli SO5059 in the ©ceijuKiilatosf* 

J^« Any other MliB ara illegal aiii th@ program listir^f pro* 
' ^vided, iiho^id Is® consaitad* 

E* llfl^r..^final mn mmt ACSO 1. »43s will alloif tm pro- 
gram to- rufii c^rrtiP:^i©'a8ly.. 

S^ f1i@ :pr©gra« xsay b^ sr^sitarts^ at ioeation lOlg* 



r- ^ 



